diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-04-17 01:12:23 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-04-17 01:12:23 +0200 |
| commit | a4645fa4bfe346dca048c946b8a2122ddcb6bf57 (patch) | |
| tree | 8f4708a61c895201783a1eb6682042b189bb1d0d /events/src/Main.hs | |
| parent | 5ddabb4a837e9aa7568043433ebf2d64f2838a38 (diff) | |
| download | events-a4645fa4bfe346dca048c946b8a2122ddcb6bf57.tar events-a4645fa4bfe346dca048c946b8a2122ddcb6bf57.tar.gz events-a4645fa4bfe346dca048c946b8a2122ddcb6bf57.tar.bz2 events-a4645fa4bfe346dca048c946b8a2122ddcb6bf57.tar.xz events-a4645fa4bfe346dca048c946b8a2122ddcb6bf57.zip | |
Seperated non-value rec. into own layer of state
Fixes lack of fixpoint
Diffstat (limited to 'events/src/Main.hs')
| -rw-r--r-- | events/src/Main.hs | 7 |
1 files changed, 4 insertions, 3 deletions
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 | |||
| 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 (BoolLit True) |
| 24 | , Occurs (BoolLit False) | ||
| 24 | ] | 25 | ] |
| 25 | where | 26 | where |
| 26 | test = CBS.putStr . Yaml.encode <=< evaluate . interpret | 27 | test = CBS.putStr . Yaml.encode <=< evaluate . interpret |