Garmelon/chards
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Ignore newlines at beginning of file

Browse source
This commit is contained in:
Joscha 2018-01-24 19:58:22 +00:00
parent 2c292f29c0
commit 4bd5291430
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Cards.hs
View file

@ -330,7 +330,7 @@ element time = comment <|> (ECard <$> pCard time) <?> "element"
-- Use this parser if you want nice error messages to display. -- Use this parser if you want nice error messages to display.
parseElements :: UTCTime -> Parser Elements parseElements :: UTCTime -> Parser Elements
parseElements time = do parseElements time = do
elms <- (element time `sepEndBy` some newline) <* label "end of file" eof elms <- many newline *> (element time `sepEndBy` some newline) <* label "end of file" eof
return $ Elements $ Map.fromList $ zip [1..] elms return $ Elements $ Map.fromList $ zip [1..] elms
-- | The 'parseElements' parser, but simpler to use. -- | The 'parseElements' parser, but simpler to use.