From a4645fa4bfe346dca048c946b8a2122ddcb6bf57 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 17 Apr 2016 01:12:23 +0200 Subject: Seperated non-value rec. into own layer of state Fixes lack of fixpoint --- events/src/Main.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'events/src/Main.hs') diff --git a/events/src/Main.hs b/events/src/Main.hs index 7f65b19..0026a8a 100644 --- a/events/src/Main.hs +++ b/events/src/Main.hs @@ -18,9 +18,10 @@ import Debug.Trace import qualified ListT main :: IO () -main = test $ [ -- Nop - -- , Override [("blub", String "Haha!")] - --, Occurs (BoolLit True) +main = test $ [ Nop + , Override [("blub", String "Haha!")] + , Occurs (BoolLit True) + , Occurs (BoolLit False) ] where test = CBS.putStr . Yaml.encode <=< evaluate . interpret -- cgit v1.2.3