From 913b3be7e381f8a8a6624ca4b8eb82b8f05ff40c Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 11 Jul 2010 15:47:46 +0000
Subject: [PATCH] stats: honour -p/--period option

---
 Hledger/Cli/Commands/Stats.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Hledger/Cli/Commands/Stats.hs b/Hledger/Cli/Commands/Stats.hs
index 909376b82..9a524593d 100644
--- a/Hledger/Cli/Commands/Stats.hs
+++ b/Hledger/Cli/Commands/Stats.hs
@@ -20,7 +20,9 @@ import qualified Data.Map as Map
 stats :: [Opt] -> [String] -> Journal -> IO ()
 stats opts args j = do
   today <- getCurrentDay
-  putStr $ showStats opts args (journalToLedger nullfilterspec j) today
+  t <- getCurrentLocalTime
+  let filterspec = optsToFilterSpec opts args t
+  putStr $ showStats opts args (journalToLedger filterspec j) today
 
 showStats :: [Opt] -> [String] -> Ledger -> Day -> String
 showStats _ _ l today =