From eaef8495366f799adefa71d4109a940dfd7d99a2 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 19 Oct 2018 23:29:49 -0700 Subject: Man reader: remove commented-out code. --- src/Text/Pandoc/Readers/Man.hs | 23 ----------------------- 1 file changed, 23 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index dfe3b21c7..0898b3c6a 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -85,29 +85,6 @@ instance Default RoffState where type ManLexer m = ParserT [Char] RoffState m type ManParser m = ParserT [ManToken] ParserState m ----- debug functions -{- -import Text.Pandoc.Class (runIOorExplode) - -printPandoc :: Pandoc -> [Char] -printPandoc (Pandoc m content) = - let ttl = "Pandoc: " ++ (show $ unMeta m) - cnt = intercalate "\n" $ map show content - in ttl ++ "\n" ++ cnt - -testStr :: String -> IO () -testStr str = do - pand <- runIOorExplode $ readMan def (T.pack str) - putStrLn $ printPandoc pand - - -testFile :: FilePath -> IO () -testFile fname = do - cont <- readFile fname - testStr cont --} ----- - -- | Read man (troff) from an input string and return a Pandoc document. readMan :: PandocMonad m => ReaderOptions -> T.Text -> m Pandoc -- cgit v1.2.3