diff options
author | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-07-31 00:23:23 +0200 |
---|---|---|
committer | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-07-31 00:23:23 +0200 |
commit | d22086666632b707aa210f20ecf10a8cd4e6d4fe (patch) | |
tree | dd561d380898dfb0a0e8fc6d98249c965c19c221 /events/src/Main.hs | |
parent | 41d0a0c8c3a66ce48756ad8c2ab0ea87933047c9 (diff) | |
download | events-d22086666632b707aa210f20ecf10a8cd4e6d4fe.tar events-d22086666632b707aa210f20ecf10a8cd4e6d4fe.tar.gz events-d22086666632b707aa210f20ecf10a8cd4e6d4fe.tar.bz2 events-d22086666632b707aa210f20ecf10a8cd4e6d4fe.tar.xz events-d22086666632b707aa210f20ecf10a8cd4e6d4fe.zip |
Lambda calculus for computing events at runtime
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) |