diff options
| author | Chris Wells <chris@mathematicaster.org> | 2026-08-20 08:53:59 -0400 |
|---|---|---|
| committer | Chris Wells <chris@mathematicaster.org> | 2026-08-20 08:53:59 -0400 |
| commit | e323135f5f857a731657601c23cd4dfb3cb5d7d7 (patch) | |
| tree | 96e8a0ce61ad3cac05c15bbd60123e34dcc83eab /src/Data | |
| parent | d955dfbfcb2c0ef1dc8056a02eb9b0e81e2de01a (diff) | |
| download | main-e323135f5f857a731657601c23cd4dfb3cb5d7d7.tar main-e323135f5f857a731657601c23cd4dfb3cb5d7d7.tar.gz main-e323135f5f857a731657601c23cd4dfb3cb5d7d7.tar.bz2 main-e323135f5f857a731657601c23cd4dfb3cb5d7d7.tar.lz main-e323135f5f857a731657601c23cd4dfb3cb5d7d7.tar.xz main-e323135f5f857a731657601c23cd4dfb3cb5d7d7.tar.zst main-e323135f5f857a731657601c23cd4dfb3cb5d7d7.zip | |
Fixed the extra links in papers
Diffstat (limited to 'src/Data')
| -rw-r--r-- | src/Data/Paper.hs | 5 |
1 files changed, 4 insertions, 1 deletions
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 |