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

lib: minor cleanup in 'periodictransactionp'

Browse Source
This commit is contained in:
Alex Chen 2018-11-22 14:05:38 -07:00 committed by Simon Michael
parent 519297051d
commit 83a63a4ef5
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
hledger-lib/Hledger/Read/JournalReader.hs
View File

@ -533,17 +533,14 @@ periodictransactionp = do
Nothing -> pure () Nothing -> pure ()
-- The line can end here, or it can continue with one or more spaces -- The line can end here, or it can continue with one or more spaces
-- and then zero or more of the following fields. A bit awkward. -- and then zero or more of the following fields. A bit awkward.
(status, code, description, (comment, tags)) <- (status, code, description, (comment, tags)) <- lift $
(lift eolof >> return (Unmarked, "", "", ("", []))) (<|>) (eolof >> return (Unmarked, "", "", ("", []))) $ do
<|> skipSome spacenonewline
(do s <- statusp
lift $ skipSome spacenonewline c <- codep
s <- lift statusp desc <- T.strip <$> descriptionp
c <- lift codep (cmt, ts) <- transactioncommentp
desc <- lift $ T.strip <$> descriptionp
(cmt, ts) <- lift transactioncommentp
return (s,c,desc,(cmt,ts)) return (s,c,desc,(cmt,ts))
)
-- next lines; use same year determined above -- next lines; use same year determined above
postings <- postingsp (Just $ first3 $ toGregorian refdate) postings <- postingsp (Just $ first3 $ toGregorian refdate)