aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorKonstantin Zudov <konstantin@anche.no>2015-01-29 22:36:23 +0200
committerKonstantin Zudov <konstantin@anche.no>2015-01-29 22:36:23 +0200
commit92e762c2d63335639f1ddb2df901fac396db74a1 (patch)
tree0eefd9822bf8e2b5b25e42714d0625dba0436ed6 /src/Text/Pandoc
parentb5cc01e9765e37cb8367a00a0b1a6b8af57cc9e5 (diff)
downloadpandoc-92e762c2d63335639f1ddb2df901fac396db74a1.tar.gz
Refactored `if x then [] else y` to `[y | not x]`
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs8
1 files changed, 2 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 113965568..e38d66216 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -786,18 +786,14 @@ inlineToHtml opts inline =
else link' ! A.title (toValue tit)
(Image txt (s,tit)) | treatAsImage s -> do
let attributes = [A.src $ toValue s] ++
- (if null tit
- then []
- else [A.title $ toValue tit]) ++
+ [A.title $ toValue tit | not $ null tit] ++
[A.alt $ toValue $ stringify txt]
let tag = if writerHtml5 opts then H5.img else H.img
return $ foldl (!) tag attributes
-- note: null title included, as in Markdown.pl
(Image _ (s,tit)) -> do
let attributes = [A.src $ toValue s] ++
- (if null tit
- then []
- else [A.title $ toValue tit])
+ [A.title $ toValue tit | not $ null tit]
return $ foldl (!) H5.embed attributes
-- note: null title included, as in Markdown.pl
(Note contents)