1 files changed, 2 insertions, 2 deletions

diff --git a/events/src/Events/Spec.hs b/events/src/Events/Spec.hs
index deabcc3..1e7e1b4 100644
--- a/events/src/Events/Spec.hs
+++ b/events/src/Events/Spec.hs
@@ -28,8 +28,8 @@ interpret :: MonadIO m => Spec -> Eval m ()
 interpret = mapM_ interpretExpr
 
 interpretExpr :: MonadIO m => Expr -> Eval m ()
-interpretExpr (Override obj) = ctxEvent ?= obj
-interpretExpr (Occurs expr)  = ctxOccurs <~ interpretBoolExpr expr
+interpretExpr (Override obj) = objPayload ?= obj
+interpretExpr (Occurs expr)  = objOccurs <~ interpretBoolExpr expr
 interpretExpr _              = return ()
 
 interpretBoolExpr :: Monad m => BoolExpr -> Eval m Bool