@@ -701,7 +701,7 @@ endOfParagraph = try $ skipSpaces *> newline *> endOfBlock
701701-- | Example code marked up by a leading colon.
702702example :: Monad m => OrgParser m (F Blocks)
703703example = try $ do
704− return . return . exampleCode =<< unlines <$> many1 exampleLine
704+ returnF . exampleCode =<< unlines <$> many1 exampleLine
705705 where
706706 exampleLine :: Monad m => OrgParser m String
707707 exampleLine = try $ exampleLineStart *> anyLine
@@ -885,7 +885,7 @@ latexFragment :: Monad m => OrgParser m (F Blocks)
885885latexFragment = try $ do
886886 envName <- latexEnvStart
887887 content <- mconcat <$> manyTill anyLineNewline (latexEnd envName)
888− return . return $ B.rawBlock "latex" (content `inLatexEnv` envName)
888+ returnF $ B.rawBlock "latex" (content `inLatexEnv` envName)
889889 where
890890 c `inLatexEnv` e = mconcat [ "\\begin{", e, "}\n"
891891 , c