@@ -530,7 +530,7 @@ inlineCodeBlock = try $ do
530530 let attrClasses = [translateLang lang]
531531 let attrKeyVal = originalLang lang <> opts
532532 let codeInlineBlck = B.codeWith ("", attrClasses, attrKeyVal) inlineCode
533− returnF $ (if exportsCode opts then codeInlineBlck else mempty)
533+ returnF $ if exportsCode opts then codeInlineBlck else mempty
534534 where
535535 inlineBlockOption :: PandocMonad m => OrgParser m (String, String)
536536 inlineBlockOption = try $ do
@@ -739,7 +739,7 @@ many1TillNOrLessNewlines n p end = try $
739739 rest m cs = (\x -> (minus1 <$> m, cs ++ x ++ "\n")) <$> try (manyTill p newline)
740740 finalLine = try $ manyTill p end
741741 minus1 k = k - 1
742− oneOrMore cs = guard (not $ null cs) *> return cs
742+ oneOrMore cs = cs <$ guard (not $ null cs)
743743
744744-- Org allows customization of the way it reads emphasis. We use the defaults
745745-- here (see, e.g., the Emacs Lisp variable `org-emphasis-regexp-components`