slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lib: Refactor common comment parsers

Browse Source
This commit is contained in:
Alex Chen 2018-05-10 15:23:19 -06:00 committed by Simon Michael
parent c2199b1125
commit b06d22a418
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
hledger-lib/Hledger/Read/Common.hs
View File

@ -795,25 +795,25 @@ whitespaceChar = charCategory Space
--- ** comments
multilinecommentp :: JournalParser m ()
multilinecommentp = do
string "comment" >> lift (skipMany spacenonewline) >> newline
go
multilinecommentp = startComment *> anyLine `skipManyTill` endComment
where
go = try (eof <|> (string "end comment" >> newline >> return ()))
<|> (anyLine >> go)
emptylinep = lift (skipMany spacenonewline) *> newline *> pure ()
startComment = string "comment" >> emptylinep
endComment = eof <|> (string "end comment" >> emptylinep)
anyLine = anyChar `manyTill` newline
emptyorcommentlinep :: JournalParser m ()
emptyorcommentlinep = do
lift (skipMany spacenonewline) >> (linecommentp <|> (lift (skipMany spacenonewline) >> newline >> return ""))
return ()
lift (skipMany spacenonewline)
void linecommentp <|> void newline
-- | Parse a possibly multi-line comment following a semicolon.
followingcommentp :: JournalParser m Text
followingcommentp =
followingcommentp = do
-- ptrace "followingcommentp"
do samelinecomment <- lift (skipMany spacenonewline) >> (try commentp <|> (newline >> return ""))
newlinecomments <- many (try (lift (skipSome spacenonewline) >> commentp))
lift (skipMany spacenonewline)
samelinecomment <- try commentp <|> (newline >> return "")
newlinecomments <- many $ try $ lift (skipSome spacenonewline) >> commentp
return $ T.unlines $ samelinecomment:newlinecomments
-- | Parse a possibly multi-line comment following a semicolon, and