aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorYan Pas <yanp.bugz@gmail.com>2018-10-14 00:57:15 +0300
committerYan Pas <yanp.bugz@gmail.com>2018-10-14 00:57:15 +0300
commit3fed62611ea394b088c49c1de680e74978bb9f82 (patch)
tree3faae8057c260d27f85fea7eb9bb16dbe64cad94 /src/Text/Pandoc/Readers
parent07b4d7b297dfc83f47aa1d708b7405a5e4b3cc4f (diff)
downloadpandoc-3fed62611ea394b088c49c1de680e74978bb9f82.tar.gz
tests, commented debug functions
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/Man.hs23
1 files changed, 12 insertions, 11 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index aea53a375..24f8316ef 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -31,7 +31,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Conversion of man to 'Pandoc' document.
-}
-module Text.Pandoc.Readers.Man (readMan, testFile) where
+module Text.Pandoc.Readers.Man (readMan) where --testFile
import Prelude
import Control.Monad (liftM)
@@ -43,7 +43,7 @@ import Data.Maybe (catMaybes, fromMaybe, isNothing)
import Data.List (intersperse, intercalate)
import qualified Data.Text as T
-import Text.Pandoc.Class (PandocMonad(..), runIOorExplode)
+import Text.Pandoc.Class (PandocMonad(..))
import Text.Pandoc.Definition
import Text.Pandoc.Error (PandocError (PandocParsecError))
import Text.Pandoc.Logging (LogMessage(..))
@@ -94,9 +94,9 @@ instance Default RoffState where
type ManLexer m = ParserT [Char] RoffState m
type ManParser m = ParserT [ManToken] ParserState m
-----
--- testStrr :: [Char] -> Either PandocError Pandoc
--- testStrr s = runPure $ readMan def (T.pack s)
+---- debug functions
+{-
+import Text.Pandoc.Class (runIOorExplode)
printPandoc :: Pandoc -> [Char]
printPandoc (Pandoc m content) =
@@ -104,16 +104,17 @@ printPandoc (Pandoc m content) =
cnt = intercalate "\n" $ map show content
in ttl ++ "\n" ++ cnt
--- strrepr :: Either PandocError Pandoc -> [Char]
--- strrepr obj = case obj of
--- Right x -> printPandoc x
--- Left y -> show y
+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
- pand <- runIOorExplode $ readMan def (T.pack cont)
- putStrLn $ printPandoc pand
+ testStr cont
+-}
----