Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Clean up overcomplicated maybe logic (#6105)

Browse source 
We're using maybe in redundant ways. Remove it altogether in one case and
simplify it to fromMaybe in another.
This commit is contained in:
Joseph C. Sible 2020-02-03 11:26:00 -05:00 • committed by GitHub
parent 8d6fac1253
commit 6371ec241d
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/Text/Pandoc/PDF.hs
View file

@ -145,18 +145,16 @@ makeWithWkhtmltopdf program pdfargs writer opts doc@(Pandoc meta _) = do
let args = pdfargs ++ mathArgs ++ concatMap toArgs
[("page-size", getField "papersize" meta')
,("title", getField "title" meta')
,("margin-bottom", maybe (Just "1.2in") Just
,("margin-bottom", Just $ fromMaybe "1.2in"
(getField "margin-bottom" meta'))
,("margin-top", maybe (Just "1.25in") Just
,("margin-top", Just $ fromMaybe "1.25in"
(getField "margin-top" meta'))
,("margin-right", maybe (Just "1.25in") Just
,("margin-right", Just $ fromMaybe "1.25in"
(getField "margin-right" meta'))
,("margin-left", maybe (Just "1.25in") Just
,("margin-left", Just $ fromMaybe "1.25in"
(getField "margin-left" meta'))
,("footer-html", maybe Nothing Just
(getField "footer-html" meta'))
,("header-html", maybe Nothing Just
(getField "header-html" meta'))
,("footer-html", getField "footer-html" meta')
,("header-html", getField "header-html" meta')
]
source <- writer opts doc
verbosity <- getVerbosity