8271fb5 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Added generalize function which can be used to lift specialised parsers.

8271fb5Matthew Pickering12 years ago

src/Text/Pandoc/Parsing.hs+4

@@ -109,6 +109,7 @@ module Text.Pandoc.Parsing ( anyLine,

109 askF,

110 asksF,

111 token,

112+ generalize,

112 -- * Re-exports from Text.Pandoc.Parsec

113 -- * Re-exports from Text.Pandoc.Parsec

113 Stream,

114 Stream,

114 runParser,

115 runParser,

@@ -1264,3 +1265,6 @@ addWarning mbpos msg =

1264 updateState $ \st -> st{

1265 updateState $ \st -> st{

1265 stateWarnings = (msg ++ maybe "" (\pos -> " " ++ show pos) mbpos) :

1266 stateWarnings = (msg ++ maybe "" (\pos -> " " ++ show pos) mbpos) :

1266 stateWarnings st }

1267 stateWarnings st }

1268+

1269+generalize :: (Monad m) => Parser s st a -> ParserT s st m a

1270+generalize m = mkPT (\ s -> (return $ (return . runIdentity) <$> runIdentity (runParsecT m s)))