diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-05-27 18:51:48 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-05-27 18:51:48 +0200 |
| commit | e04e707b1fb63b7857878e2d77c560abe3efd51b (patch) | |
| tree | 589638b4f9eeab4a4ed664d42940e2bfb7c7f727 /events/src/Main.hs | |
| parent | aed36a51b3942a3050ee8cf45424798f22354d73 (diff) | |
| download | events-e04e707b1fb63b7857878e2d77c560abe3efd51b.tar events-e04e707b1fb63b7857878e2d77c560abe3efd51b.tar.gz events-e04e707b1fb63b7857878e2d77c560abe3efd51b.tar.bz2 events-e04e707b1fb63b7857878e2d77c560abe3efd51b.tar.xz events-e04e707b1fb63b7857878e2d77c560abe3efd51b.zip | |
Dynamically compute commands
Diffstat (limited to 'events/src/Main.hs')
| -rw-r--r-- | events/src/Main.hs | 15 |
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 | |||
| 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 | ||