lib: whitespace

This commit is contained in:
Simon Michael 2018-09-26 16:14:54 -10:00
parent f42b140d53
commit 2960c9209f

View File

@ -281,8 +281,8 @@ journalAccountNameTree = accountNameTreeFrom . journalAccountNames
-- Cf <http://en.wikipedia.org/wiki/Chart_of_accounts#Profit_.26_Loss_accounts>. -- Cf <http://en.wikipedia.org/wiki/Chart_of_accounts#Profit_.26_Loss_accounts>.
journalProfitAndLossAccountQuery :: Journal -> Query journalProfitAndLossAccountQuery :: Journal -> Query
journalProfitAndLossAccountQuery j = Or [journalIncomeAccountQuery j journalProfitAndLossAccountQuery j = Or [journalIncomeAccountQuery j
,journalExpenseAccountQuery j ,journalExpenseAccountQuery j
] ]
-- | A query for Income (Revenue) accounts in this journal. -- | A query for Income (Revenue) accounts in this journal.
-- This is currently hard-coded to the case-insensitive regex @^(income|revenue)s?(:|$)@. -- This is currently hard-coded to the case-insensitive regex @^(income|revenue)s?(:|$)@.
@ -298,9 +298,9 @@ journalExpenseAccountQuery _ = Acct "^expenses?(:|$)"
-- Cf <http://en.wikipedia.org/wiki/Chart_of_accounts#Balance_Sheet_Accounts>. -- Cf <http://en.wikipedia.org/wiki/Chart_of_accounts#Balance_Sheet_Accounts>.
journalBalanceSheetAccountQuery :: Journal -> Query journalBalanceSheetAccountQuery :: Journal -> Query
journalBalanceSheetAccountQuery j = Or [journalAssetAccountQuery j journalBalanceSheetAccountQuery j = Or [journalAssetAccountQuery j
,journalLiabilityAccountQuery j ,journalLiabilityAccountQuery j
,journalEquityAccountQuery j ,journalEquityAccountQuery j
] ]
-- | A query for Asset accounts in this journal. -- | A query for Asset accounts in this journal.
-- This is currently hard-coded to the case-insensitive regex @^assets?(:|$)@. -- This is currently hard-coded to the case-insensitive regex @^assets?(:|$)@.