diff options
| author | Chris Wells <chris@mathematicaster.org> | 2025-06-30 17:21:46 -0500 |
|---|---|---|
| committer | Chris Wells <chris@mathematicaster.org> | 2025-06-30 17:21:46 -0500 |
| commit | 93c9ee6a703eee31abdadbcd5bbd269fb67d25f0 (patch) | |
| tree | 59ac90ff4815a0469cf763a77cb31d7727ab76de | |
| parent | cf3bdc6a370e01c8e7f9b9a6cf3845e1a7cbaad8 (diff) | |
| download | main-93c9ee6a703eee31abdadbcd5bbd269fb67d25f0.tar main-93c9ee6a703eee31abdadbcd5bbd269fb67d25f0.tar.gz main-93c9ee6a703eee31abdadbcd5bbd269fb67d25f0.tar.bz2 main-93c9ee6a703eee31abdadbcd5bbd269fb67d25f0.tar.lz main-93c9ee6a703eee31abdadbcd5bbd269fb67d25f0.tar.xz main-93c9ee6a703eee31abdadbcd5bbd269fb67d25f0.tar.zst main-93c9ee6a703eee31abdadbcd5bbd269fb67d25f0.zip | |
Working on parsing papers
| -rw-r--r-- | src/Data/Paper.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/Paper.hs b/src/Data/Paper.hs index 34c6fad..25b6d98 100644 --- a/src/Data/Paper.hs +++ b/src/Data/Paper.hs @@ -141,7 +141,7 @@ mkPaper bib = do getDate = mapM findit [ "month", "year" ] >>= parseTimeM True defaultTimeLocale "%b %Y" . unwords puri :: MonadFail m => String -> m URI -puri u = undefined +puri u = maybe (fail $ show u <> " cannot be understood as a uri") pure $ parseURI 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 |