diff options
| -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 |