code cleanup

1 files changed, 5 insertions, 2 deletions

diff --git a/events/src/Main.hs b/events/src/Main.hs
index 9e732a5..e4b255f 100644
--- a/events/src/Main.hs
+++ b/events/src/Main.hs
@@ -23,12 +23,15 @@ import qualified Events.Types.NDT as NDT
 main :: IO ()
 main = test $ do
   n <- lift $ NDT.fromFoldable ([1..] :: [Integer])
+  lower <- filter (maybe False (< fromIntegral n) <$> view (at "num" . asDouble)) <$> view ctxEvents
   -- objOccurs .= (n <= 5)
   objOccurs .= (n >= 2)
   objPayload ?= [ ("num", Yaml.Number $ fromIntegral n)
+                , ("count", Yaml.Number . fromIntegral . length $ lower)
                 ]
   where
     test = CBS.putStr . Yaml.encode <=< evaluate predicate
     predicate :: Monad m => Maybe Yaml.Object -> m Bool
-    predicate Nothing = return True
-    predicate (Just obj) = return . maybe False (<= 5) . traceShowId $ obj ^. at "num" . asDouble
+    predicate = ordPredicate $ maybe LT (`compare` 5) . view (at "num" . asDouble)
+    -- predicate Nothing = return True
+    -- predicate (Just obj) = return . maybe False (<= 5) . traceShowId $ obj ^. at "num" . asDouble