diff options
Diffstat (limited to 'src/Text/Pandoc/Citeproc/MetaValue.hs')
-rw-r--r-- | src/Text/Pandoc/Citeproc/MetaValue.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Citeproc/MetaValue.hs b/src/Text/Pandoc/Citeproc/MetaValue.hs index 17d5da327..f5a49f49e 100644 --- a/src/Text/Pandoc/Citeproc/MetaValue.hs +++ b/src/Text/Pandoc/Citeproc/MetaValue.hs @@ -147,7 +147,7 @@ metaValueToDate (MetaMap m) = mapMaybe metaValueToDateParts xs Just _ -> [] Nothing -> - maybe [] (:[]) $ metaValueToDateParts (MetaMap m) + maybeToList $ metaValueToDateParts (MetaMap m) circa = fromMaybe False $ M.lookup "circa" m >>= metaValueToBool season = M.lookup "season" m >>= metaValueToInt @@ -251,4 +251,3 @@ normalizeKey k = "pmid" -> "PMID" "url" -> "URL" x -> x - |