From 1b7ffe2e5a7bcd96e3b51b7186d20c201e714dd6 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 14 May 2012 17:22:12 +0000
Subject: [PATCH] fix for haddock

---
 hledger-lib/Hledger/Reports.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-lib/Hledger/Reports.hs b/hledger-lib/Hledger/Reports.hs
index 79c3e53f8..30667610b 100644
--- a/hledger-lib/Hledger/Reports.hs
+++ b/hledger-lib/Hledger/Reports.hs
@@ -195,7 +195,7 @@ queryFromOpts opts@ReportOpts{..} d = -- strace $
       ++ (maybe [] ((:[]) . Depth) depth_)
     ,[])
     where
-      (apats,dpats,_{-* mds *-}) = parsePatternArgs patterns_
+      (apats,dpats,_) = parsePatternArgs patterns_
 
 -- queryFromOpts :: ReportOpts -> Day -> (Query, [QueryOpt])
 -- queryFromOpts opts d = parseQuery d (unwords $ patterns_ opts)