simplify null Date2 queries too
This commit is contained in:
parent
77c2c90290
commit
6780c63ab3
@ -360,6 +360,7 @@ simplifyQuery q =
|
||||
-- all queryIsDate qs = Date $ spansUnion $ mapMaybe queryTermDateSpan qs ?
|
||||
| otherwise = Or $ map simplify $ filter (/=None) qs
|
||||
simplify (Date (DateSpan Nothing Nothing)) = Any
|
||||
simplify (Date2 (DateSpan Nothing Nothing)) = Any
|
||||
simplify q = q
|
||||
|
||||
tests_simplifyQuery = [
|
||||
|
||||
Loading…
Reference in New Issue
Block a user