@@ -530,7 +530,7 @@ inlineCodeBlock = try $ do
530 let attrClasses = [translateLang lang]
530 let attrClasses = [translateLang lang]
531 let attrKeyVal = originalLang lang <> opts
531 let attrKeyVal = originalLang lang <> opts
532 let codeInlineBlck = B.codeWith ("", attrClasses, attrKeyVal) inlineCode
532 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
535 inlineBlockOption :: PandocMonad m => OrgParser m (String, String)
535 inlineBlockOption :: PandocMonad m => OrgParser m (String, String)
536 inlineBlockOption = try $ do
536 inlineBlockOption = try $ do
@@ -739,7 +739,7 @@ many1TillNOrLessNewlines n p end = try $
739 rest m cs = (\x -> (minus1 <$> m, cs ++ x ++ "\n")) <$> try (manyTill p newline)
739 rest m cs = (\x -> (minus1 <$> m, cs ++ x ++ "\n")) <$> try (manyTill p newline)
740 finalLine = try $ manyTill p end
740 finalLine = try $ manyTill p end
741 minus1 k = k - 1
741 minus1 k = k - 1
742− oneOrMore cs = guard (not $ null cs) *> return cs
742+ oneOrMore cs = cs <$ guard (not $ null cs)
744-- Org allows customization of the way it reads emphasis. We use the defaults
744-- Org allows customization of the way it reads emphasis. We use the defaults
745-- here (see, e.g., the Emacs Lisp variable `org-emphasis-regexp-components`
745-- here (see, e.g., the Emacs Lisp variable `org-emphasis-regexp-components`