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)