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

web: fix a warning

Browse Source
This commit is contained in:
Simon Michael 2014-06-13 00:21:26 +01:00
parent 71bd9f4110
commit 5af4ef33ab
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
hledger-lib/Hledger/Reports/TransactionsReports.hs
View File

@ -142,16 +142,16 @@ accountTransactionsReportItems query thisacctquery bal signfn (t:ts) =
b = bal + a b = bal + a
is = accountTransactionsReportItems query thisacctquery bal' signfn ts is = accountTransactionsReportItems query thisacctquery bal' signfn ts
-- | Generate a short readable summary of some postings, like -- -- | Generate a short readable summary of some postings, like
-- "from (negatives) to (positives)". -- -- "from (negatives) to (positives)".
summarisePostings :: [Posting] -> String -- summarisePostings :: [Posting] -> String
summarisePostings ps = -- summarisePostings ps =
case (summarisePostingAccounts froms, summarisePostingAccounts tos) of -- case (summarisePostingAccounts froms, summarisePostingAccounts tos) of
("",t) -> "to "++t -- ("",t) -> "to "++t
(f,"") -> "from "++f -- (f,"") -> "from "++f
(f,t) -> "from "++f++" to "++t -- (f,t) -> "from "++f++" to "++t
where -- where
(froms,tos) = partition (fromMaybe False . isNegativeMixedAmount . pamount) ps -- (froms,tos) = partition (fromMaybe False . isNegativeMixedAmount . pamount) ps
-- | Generate a simplified summary of some postings' accounts. -- | Generate a simplified summary of some postings' accounts.
summarisePostingAccounts :: [Posting] -> String summarisePostingAccounts :: [Posting] -> String