From 7819abd80fb5a8033bb37a7daf801a4e085b9c98 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 22 Nov 2008 09:22:55 +0000
Subject: [PATCH] detect precisions from the whole ledger, not just the
 filtered part

---
 hledger.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger.hs b/hledger.hs
index ad884eca6..0c549911e 100644
--- a/hledger.hs
+++ b/hledger.hs
@@ -70,7 +70,7 @@ parseLedgerAndDo :: [Opt] -> [String] -> ([Opt] -> [String] -> Ledger -> IO ())
 parseLedgerAndDo opts args cmd = 
     ledgerFilePathFromOpts opts >>= parseLedgerFile >>= either printParseError runcmd
     where
-      runcmd = cmd opts args . cacheLedger apats . canonicaliseAmounts . filterRawLedger b e dpats c r
+      runcmd = cmd opts args . cacheLedger apats . filterRawLedger b e dpats c r . canonicaliseAmounts
       b = beginDateFromOpts opts
       e = endDateFromOpts opts
       (apats,dpats) = parseAccountDescriptionArgs args