diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index ee7051213..4fefb0e66 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -121,10 +121,11 @@ parseNewParagraph = do -- Parser: [ManToken] -> Pandoc -- -msatisfy :: (Show t, Stream s m t) => (t -> Bool) -> ParserT s st m t +msatisfy :: Monad m => (ManToken -> Bool) -> ParserT [ManToken] st m ManToken msatisfy predic = tokenPrim show nextPos testTok where testTok t = if predic t then Just t else Nothing + nextPos _pos _x (MMacro _ _ pos':_) = pos' nextPos pos _x _xs = updatePosString (setSourceColumn (setSourceLine pos $ sourceLine pos + 1) 1) "" |