diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-19 23:29:49 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-19 23:29:49 -0700 |
| commit | eaef8495366f799adefa71d4109a940dfd7d99a2 (patch) | |
| tree | c867dfe7f299da52d29f86a5776333e4c32960ee | |
| parent | 7dd06e96d784b093120e0f8e816c869184613ff9 (diff) | |
| download | pandoc-eaef8495366f799adefa71d4109a940dfd7d99a2.tar.gz | |
Man reader: remove commented-out code.
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 23 |
1 files changed, 0 insertions, 23 deletions
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 |