keep haddock happy

This commit is contained in:
Simon Michael 2011-06-24 01:30:16 +00:00
parent b165f796cc
commit 4637e5b018

View File

@ -111,8 +111,8 @@ balancelabel = "Balance"
accountRegisterReport :: [Opt] -> Journal -> Matcher -> Matcher -> RegisterReport2 accountRegisterReport :: [Opt] -> Journal -> Matcher -> Matcher -> RegisterReport2
accountRegisterReport opts j m thisacctmatcher = (label, items) accountRegisterReport opts j m thisacctmatcher = (label, items)
where where
-- | interval == NoInterval = items -- interval == NoInterval = items
-- | otherwise = summarisePostingsByInterval interval depth empty filterspan displayps -- otherwise = summarisePostingsByInterval interval depth empty filterspan displayps
-- transactions affecting this account, in date order -- transactions affecting this account, in date order
ts = sortBy (comparing tdate) $ filter (matchesTransaction thisacctmatcher) $ jtxns j ts = sortBy (comparing tdate) $ filter (matchesTransaction thisacctmatcher) $ jtxns j