Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Man reader: improve source posiiton info.

Browse source
This commit is contained in:
John MacFarlane 2018-10-24 22:44:51 -07:00
parent e4726518af
commit c5a42e695e
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Readers/Man.hs
View file

@ -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) ""