1 files changed, 8 insertions, 7 deletions
diff --git a/events/src/Main.hs b/events/src/Main.hs
index 0026a8a..0454f22 100644
--- a/events/src/Main.hs
+++ b/events/src/Main.hs
@@ -18,10 +18,11 @@ import Debug.Trace
 import qualified ListT
 main :: IO ()
-main = test $ [ Nop
+-- main = test $ [ Nop
-              , Override [("blub", String "Haha!")]
+--               , Override [("blub", String "Haha!")]
-              , Occurs (BoolLit True)
+--               , Occurs True
-              , Occurs (BoolLit False)
+--               , Occurs False
-              ]
+--               ]
-  where
+--   where
-    test = CBS.putStr . Yaml.encode <=< evaluate . interpret
+--     test = CBS.putStr . Yaml.encode <=< evaluate . interpret
+main = undefined

diff --git a/events/src/Main.hs b/events/src/Main.hs index 0026a8a..0454f22 100644 --- a/events/src/Main.hs +++ b/events/src/Main.hs
@@ -18,10 +18,11 @@ import Debug.Trace
18	import qualified ListT	18	import qualified ListT
19		19
20	main :: IO ()	20	main :: IO ()
21	main = test $ [ Nop	21	-- main = test $ [ Nop
22	, Override [("blub", String "Haha!")]	22	-- , Override [("blub", String "Haha!")]
23	, Occurs (BoolLit True)	23	-- , Occurs True
24	, Occurs (BoolLit False)	24	-- , Occurs False
25	]	25	-- ]
26	where	26	-- where
27	test = CBS.putStr . Yaml.encode <=< evaluate . interpret	27	-- test = CBS.putStr . Yaml.encode <=< evaluate . interpret
		28	main = undefined