diff options
Diffstat (limited to 'events/src/Main.hs')
| -rw-r--r-- | events/src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/events/src/Main.hs b/events/src/Main.hs index e4b255f..410ea1d 100644 --- a/events/src/Main.hs +++ b/events/src/Main.hs | |||
| @@ -22,7 +22,7 @@ import qualified Events.Types.NDT as NDT | |||
| 22 | 22 | ||
| 23 | main :: IO () | 23 | main :: IO () |
| 24 | main = test $ do | 24 | main = test $ do |
| 25 | n <- lift $ NDT.fromFoldable ([1..] :: [Integer]) | 25 | n <- Eval . lift $ NDT.fromFoldable ([1..] :: [Integer]) |
| 26 | lower <- filter (maybe False (< fromIntegral n) <$> view (at "num" . asDouble)) <$> view ctxEvents | 26 | lower <- filter (maybe False (< fromIntegral n) <$> view (at "num" . asDouble)) <$> view ctxEvents |
| 27 | -- objOccurs .= (n <= 5) | 27 | -- objOccurs .= (n <= 5) |
| 28 | objOccurs .= (n >= 2) | 28 | objOccurs .= (n >= 2) |