From e04e707b1fb63b7857878e2d77c560abe3efd51b Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 27 May 2016 18:51:48 +0200 Subject: Dynamically compute commands --- events/src/Main.hs | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'events/src/Main.hs') 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 - , Override [("blub", String "Haha!")] - , Occurs (BoolLit True) - , Occurs (BoolLit False) - ] - where - test = CBS.putStr . Yaml.encode <=< evaluate . interpret +-- main = test $ [ Nop +-- , Override [("blub", String "Haha!")] +-- , Occurs True +-- , Occurs False +-- ] +-- where +-- test = CBS.putStr . Yaml.encode <=< evaluate . interpret +main = undefined -- cgit v1.2.3