git.iko.soy/typeable/pandoc
on master help sign in
Man reader: remove commented-out code.
eaef849John MacFarlane
src/Text/Pandoc/Readers/Man.hs−23
compare with master
unifiedsplit
@@ -85,29 +85,6 @@ instance Default RoffState where
85type ManLexer m = ParserT [Char] RoffState m
85type ManLexer m = ParserT [Char] RoffState m
86type ManParser m = ParserT [ManToken] ParserState m
86type ManParser m = ParserT [ManToken] ParserState m
87
87
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−
111
88
112-- | Read man (troff) from an input string and return a Pandoc document.
89-- | Read man (troff) from an input string and return a Pandoc document.
113readMan :: PandocMonad m => ReaderOptions -> T.Text -> m Pandoc
90readMan :: PandocMonad m => ReaderOptions -> T.Text -> m Pandoc