fix for haddock

This commit is contained in:
Simon Michael 2012-05-14 17:22:12 +00:00
parent 2f28931d83
commit 1b7ffe2e5a

View File

@ -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)