From 03f321adafd3ef7a169555703ebc8e03903a1450 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sat, 16 Apr 2016 22:16:41 +0200
Subject: Specifications to be evaluated

---
 events/src/Main.hs | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

(limited to 'events/src/Main.hs')

diff --git a/events/src/Main.hs b/events/src/Main.hs
index 1c56140..7f65b19 100644
--- a/events/src/Main.hs
+++ b/events/src/Main.hs
@@ -1,4 +1,26 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE OverloadedLists #-}
+
 import Events.Types
+import Events.Spec
+
+import qualified Data.Yaml as Yaml
+import qualified Data.ByteString.Char8 as CBS
+
+import Control.Lens
+import Control.Monad
+import Control.Monad.Trans
+import Data.Aeson.Lens
+import Data.Aeson
+
+import Debug.Trace
+
+import qualified ListT
 
 main :: IO ()
-main = undefined
+main = test $ [ -- Nop
+              -- , Override [("blub", String "Haha!")]
+              --,  Occurs (BoolLit True)
+              ]
+  where
+    test = CBS.putStr . Yaml.encode <=< evaluate . interpret
-- 
cgit v1.2.3