fix for haddock
This commit is contained in:
parent
2f28931d83
commit
1b7ffe2e5a
@ -195,7 +195,7 @@ queryFromOpts opts@ReportOpts{..} d = -- strace $
|
|||||||
++ (maybe [] ((:[]) . Depth) depth_)
|
++ (maybe [] ((:[]) . Depth) depth_)
|
||||||
,[])
|
,[])
|
||||||
where
|
where
|
||||||
(apats,dpats,_{-* mds *-}) = parsePatternArgs patterns_
|
(apats,dpats,_) = parsePatternArgs patterns_
|
||||||
|
|
||||||
-- queryFromOpts :: ReportOpts -> Day -> (Query, [QueryOpt])
|
-- queryFromOpts :: ReportOpts -> Day -> (Query, [QueryOpt])
|
||||||
-- queryFromOpts opts d = parseQuery d (unwords $ patterns_ opts)
|
-- queryFromOpts opts d = parseQuery d (unwords $ patterns_ opts)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user