@@ -580,10 +580,19 @@ let filter = RangeFilter (FieldName "age")
580580-- -> CacheKey
581581-- -> Filter
582582let filter = RegexpFilter (FieldName "user") (Regexp "bite.*app")
583− RegexpAll (CacheName "test") False (CacheKey "key")
584−
585−-- RegexpFlags can be a combination of RegexpAll, Complement,
586−-- Interval, Intersection, AnyString, and a combination of two options thereof.
583+ AllRegexpFlags (CacheName "test") False (CacheKey "key")
584+
585+-- n.b.
586+-- data RegexpFlags = AllRegexpFlags
587+-- | NoRegexpFlags
588+-- | SomeRegexpFlags (NonEmpty RegexpFlag) deriving (Eq, Show)
589+
590+-- data RegexpFlag = AnyString
591+-- | Automaton
592+-- | Complement
593+-- | Empty
594+-- | Intersection
595+-- | Interval deriving (Eq, Show)
587596
588597#+END_SRC
589598