From 743242698f2f7194f29dd2df0ad83dd0ec23c2b0 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 2 Apr 2009 09:36:24 +0000
Subject: [PATCH] restore transaction-aggregating (rather than filtering) in
 register --depth when there is a reporting interval

---
 RegisterCommand.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/RegisterCommand.hs b/RegisterCommand.hs
index 9e2909470..344b55449 100644
--- a/RegisterCommand.hs
+++ b/RegisterCommand.hs
@@ -34,7 +34,8 @@ showRegisterReport opts args l
     where
       interval = intervalFromOpts opts
       ts = filterempties $ filter matchapats $ filterdepth $ ledgerTransactions l
-      filterdepth = filter (\t -> (accountNameLevel $ account t) <= depth)
+      filterdepth | interval == NoInterval = filter (\t -> (accountNameLevel $ account t) <= depth)
+                  | otherwise = id
       filterempties
           | Empty `elem` opts = id
           | otherwise = filter (not . isZeroMixedAmount . amount)