1 files changed, 9 insertions, 15 deletions

diff --git a/events/src/Events/Spec.hs b/events/src/Events/Spec.hs
index c2a84ac..f0b1456 100644
--- a/events/src/Events/Spec.hs
+++ b/events/src/Events/Spec.hs
@@ -1,8 +1,8 @@
-{-# LANGUAGE GADTs, DataKinds, TypeOperators #-}
+{-# LANGUAGE RankNTypes #-}
 
 module Events.Spec
        ( interpret
-       , Spec, Cmnd(..), Expr(..), Elem(..)
+       , Spec, Expr(..), Elem(..)
        , module Events.Spec.Parse
        , module Events.Spec.Eval
        ) where
@@ -12,20 +12,14 @@ import Events.Spec.Eval
 
 import Events.Spec.Parse
 
-import Control.Monad ((<=<))
-import Control.Monad.IO.Class
-import Control.Monad.State.Lazy
 
-import Data.Monoid
-import Data.Foldable
-import Control.Lens
+import Data.Conduit
 
-import Debug.Trace
+import Data.Text (Text)
+import qualified Data.Text as T
 
-interpret :: MonadIO m => Spec m -> Eval m ()
-interpret = join . fmap interpretCmnd . evalExpr
+import Control.Monad.Catch (MonadThrow)
 
-interpretCmnd :: MonadIO m => Cmnd -> Eval m ()
-interpretCmnd (COverride obj) = objPayload ?= obj
-interpretCmnd (COccurs b)     = objOccurs .= b
-interpretCmnd _               = return ()
+
+interpret :: MonadThrow m => Producer m Text -> Eval m ()
+interpret source = evalExpr =<< lift (connect source parse)