eolof parser matches end of line or end of file

2013-03-29 18:42:00 +00:00 · 2013-03-29 18:42:00 +00:00 · 7b6a59123d
commit 7b6a59123d
parent 972106b145
2 changed files with 3 additions and 2 deletions
--- a/hledger-lib/Hledger/Read/JournalReader.hs
+++ b/hledger-lib/Hledger/Read/JournalReader.hs
@ -833,8 +833,6 @@ followingcommentline = do
  optional newline
  return l

-eolof = (newline >> return ()) <|> eof
-
 tagsInComment :: String -> [Tag]
 tagsInComment c = concatMap tagsInCommentLine $ lines c'
  where
--- a/hledger-lib/Hledger/Utils.hs
+++ b/hledger-lib/Hledger/Utils.hs
@ -414,6 +414,9 @@ spacenonewline = satisfy (`elem` " \v\f\t")
 restofline :: GenParser Char st String
 restofline = anyChar `manyTill` newline

+eolof :: GenParser Char st ()
+eolof = (newline >> return ()) <|> eof
+
 -- time

 getCurrentLocalTime :: IO LocalTime