标签:log 用户 stream 笔记 print pre markdown 特化 logs
data ParsecT s u m a
type Parsec s u = ParsecT s u Identity
type Parser = Parsec String ()
parseTest :: (Stream s Identity t, Show a)
=> Parsec s () a -> s -> IO ()
parseTest p input
= case parse p "" input of
Left err -> do putStr "parse error at "
print err
Right x -> print x
标签:log 用户 stream 笔记 print pre markdown 特化 logs
原文地址:http://www.cnblogs.com/zwvista/p/8001592.html