Use isNothing.

This commit is contained in:
John MacFarlane 2017-06-01 14:16:17 +02:00
parent 00d8585d8f
commit c2eb7d0857

View file

@ -413,8 +413,8 @@ convertWithOpts opts = do
mconcat <$> mapM (readFile' >=> r readerOpts) sources
metadata <- if format == "jats" &&
lookup "csl" (optMetadata opts) == Nothing &&
lookup "citation-style" (optMetadata opts) == Nothing
isNothing (lookup "csl" (optMetadata opts)) &&
isNothing (lookup "citation-style" (optMetadata opts))
then do
jatsCSL <- readDataFile datadir "jats.csl"
let jatsEncoded = makeDataURI ("application/xml", jatsCSL)