From e323135f5f857a731657601c23cd4dfb3cb5d7d7 Mon Sep 17 00:00:00 2001
From: Chris Wells <chris@mathematicaster.org>
Date: Thu, 20 Aug 2026 08:53:59 -0400
Subject: Fixed the extra links in papers

---
 src/Data/Paper.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Data')

diff --git a/src/Data/Paper.hs b/src/Data/Paper.hs
index b86b2f0..38994de 100644
--- a/src/Data/Paper.hs
+++ b/src/Data/Paper.hs
@@ -135,7 +135,7 @@ mkPaper bib = do
         --     doi <- find' "doi" >>= fmap DOI . puri
         --     date <- getDate
         --     pure $ Published {..}
-    extraLink <- traverse puri $ M.lookup "extralink" fields
+    extraLink <- traverse pauri $ M.lookup "extralink" fields
     eprints <- case toLower <<$>> M.lookup "eprinttype" fields of
                 Just "arxiv" -> do
                     _identifier <- find' "eprint" >>= puri
@@ -155,5 +155,8 @@ mkPaper bib = do
 puri :: MonadFail m => String -> m URI
 puri u = maybe (fail $ show u <> " cannot be understood as a uri") pure $ parseRelativeReference u
 
+pauri :: MonadFail m => String -> m URI
+pauri u = maybe (fail $ show u <> " cannot be understood as a uri") pure $ parseURIReference u
+
 findit :: (Show a, Ord a, MonadFail m) => a -> M.Map a x -> m x
 findit k = maybe (fail $ "Field " <> show k <> " does not exist") pure . M.lookup k
-- 
cgit v1.3.1