@@ -85,29 +85,6 @@ instance Default RoffState where
8585type ManLexer m = ParserT [Char] RoffState m
8686type ManParser m = ParserT [ManToken] ParserState m
8787
88−---- debug functions
89−{-
90−import Text.Pandoc.Class (runIOorExplode)
91−
92−printPandoc :: Pandoc -> [Char]
93−printPandoc (Pandoc m content) =
94− let ttl = "Pandoc: " ++ (show $ unMeta m)
95− cnt = intercalate "\n" $ map show content
96− in ttl ++ "\n" ++ cnt
97−
98−testStr :: String -> IO ()
99−testStr str = do
100− pand <- runIOorExplode $ readMan def (T.pack str)
101− putStrLn $ printPandoc pand
102−
103−
104−testFile :: FilePath -> IO ()
105−testFile fname = do
106− cont <- readFile fname
107− testStr cont
108−-}
109−----
110−
11188
11289-- | Read man (troff) from an input string and return a Pandoc document.
11390readMan :: PandocMonad m => ReaderOptions -> T.Text -> m Pandoc