diff --git a/hledger-lib/Hledger/Data/Journal.hs b/hledger-lib/Hledger/Data/Journal.hs index e7ae1860ac7..bf6986f1479 100644 --- a/hledger-lib/Hledger/Data/Journal.hs +++ b/hledger-lib/Hledger/Data/Journal.hs @@ -281,8 +281,8 @@ journalAccountNameTree = accountNameTreeFrom . journalAccountNames -- Cf . journalProfitAndLossAccountQuery :: Journal -> Query journalProfitAndLossAccountQuery j = Or [journalIncomeAccountQuery j - ,journalExpenseAccountQuery j - ] + ,journalExpenseAccountQuery j + ] -- | A query for Income (Revenue) accounts in this journal. -- This is currently hard-coded to the case-insensitive regex @^(income|revenue)s?(:|$)@. @@ -298,9 +298,9 @@ journalExpenseAccountQuery _ = Acct "^expenses?(:|$)" -- Cf . journalBalanceSheetAccountQuery :: Journal -> Query journalBalanceSheetAccountQuery j = Or [journalAssetAccountQuery j - ,journalLiabilityAccountQuery j - ,journalEquityAccountQuery j - ] + ,journalLiabilityAccountQuery j + ,journalEquityAccountQuery j + ] -- | A query for Asset accounts in this journal. -- This is currently hard-coded to the case-insensitive regex @^assets?(:|$)@.