From 527346cc7e2bc874092be2f6793001860e10a719 Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Sat, 7 Nov 2020 19:38:03 +0100 Subject: Lint code in PRs and when committing to master (#6790) * Remove unused LANGUAGE pragmata * Apply HLint suggestions * Configure HLint to ignore some warnings * Lint code when committing to master --- src/Text/Pandoc/Citeproc/MetaValue.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Text/Pandoc/Citeproc/MetaValue.hs') 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 - -- cgit v1.2.3