fix for haddock
This commit is contained in:
parent
2f28931d83
commit
1b7ffe2e5a
@ -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)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user