lib: fix a haddock error

This commit is contained in:
Simon Michael 2016-05-06 18:16:12 -07:00
parent e9c6c1ef5e
commit ce344f9b96

View File

@ -121,8 +121,6 @@ matchedPostingsBeforeAndDuring opts q j (DateSpan mstart mend) =
symq = dbg1 "symq" $ filterQuery queryIsSym q symq = dbg1 "symq" $ filterQuery queryIsSym q
dateqtype dateqtype
| queryIsDate2 dateq || (queryIsDate dateq && date2_ opts) = Date2 | queryIsDate2 dateq || (queryIsDate dateq && date2_ opts) = Date2
-- | queryIsDate2 dateq = Date2
-- | queryIsDate2 dateq || date2_ opts = Date2
| otherwise = Date | otherwise = Date
where where
dateq = dbg1 "dateq" $ filterQuery queryIsDateOrDate2 $ dbg1 "q" q -- XXX confused by multiple date:/date2: ? dateq = dbg1 "dateq" $ filterQuery queryIsDateOrDate2 $ dbg1 "q" q -- XXX confused by multiple date:/date2: ?