From 8578faf533ef5ed200b722ebc8551f32ace3a5cf Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 7 Jan 2018 17:12:34 +0100
Subject: Cleanup code

---
 assignment-13/uFPL/Sim.icl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'assignment-13/uFPL/Sim.icl')

diff --git a/assignment-13/uFPL/Sim.icl b/assignment-13/uFPL/Sim.icl
index 892708c..07f3103 100644
--- a/assignment-13/uFPL/Sim.icl
+++ b/assignment-13/uFPL/Sim.icl
@@ -249,6 +249,7 @@ where
 		(e :: Expr Char rw) -> return (dynamic Print e)
 		(e :: Expr Bool rw) -> return (dynamic Print e)
 		_ -> throw (LiftException "IPrint")
+	lift (IPrintS s) = return (dynamic PrintS s)
 
 instance unlift IRule Rule
 where
@@ -257,6 +258,7 @@ where
 	unlift (t >>> rs) = ITrigger (unlift t) (unlift rs)
 	unlift (SetCursor (c,r)) = ISetCursor (unlift c, unlift r)
 	unlift (Print e) = IPrint (unlift e)
+	unlift (PrintS s) = IPrintS s
 
 instance lift INamedRule
 where
-- 
cgit v1.2.3