aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorAlbert Krewinkel <albert@zeitkraut.de>2019-01-01 20:49:51 +0100
committerAlbert Krewinkel <albert@zeitkraut.de>2019-01-01 20:49:51 +0100
commitaf887e9198b2192daac4827923ea319892ad5bdd (patch)
tree73680d0930d99e2c90ddddedbeff02bec29c60e1 /src/Text/Pandoc
parent792f18a7fa64773f7d8466740f8da5e434c2da4f (diff)
downloadpandoc-af887e9198b2192daac4827923ea319892ad5bdd.tar.gz
Org reader: hlint
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Org/Inlines.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Inlines.hs b/src/Text/Pandoc/Readers/Org/Inlines.hs
index dfe398130..b5b2b5c47 100644
--- a/src/Text/Pandoc/Readers/Org/Inlines.hs
+++ b/src/Text/Pandoc/Readers/Org/Inlines.hs
@@ -530,7 +530,7 @@ inlineCodeBlock = try $ do
let attrClasses = [translateLang lang]
let attrKeyVal = originalLang lang <> opts
let codeInlineBlck = B.codeWith ("", attrClasses, attrKeyVal) inlineCode
- returnF $ (if exportsCode opts then codeInlineBlck else mempty)
+ returnF $ if exportsCode opts then codeInlineBlck else mempty
where
inlineBlockOption :: PandocMonad m => OrgParser m (String, String)
inlineBlockOption = try $ do
@@ -739,7 +739,7 @@ many1TillNOrLessNewlines n p end = try $
rest m cs = (\x -> (minus1 <$> m, cs ++ x ++ "\n")) <$> try (manyTill p newline)
finalLine = try $ manyTill p end
minus1 k = k - 1
- oneOrMore cs = guard (not $ null cs) *> return cs
+ oneOrMore cs = cs <$ guard (not $ null cs)
-- Org allows customization of the way it reads emphasis. We use the defaults
-- here (see, e.g., the Emacs Lisp variable `org-emphasis-regexp-components`