From 1977b7ad1e86d2b922737eb04741607e9c9a991a Mon Sep 17 00:00:00 2001
From: Matthew Hall <hallmatthew314@gmail.com>
Date: Fri, 24 Feb 2023 23:03:33 +1300
Subject: Better printing functions

---
 DSL/Interpretation.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'DSL/Interpretation.hs')

diff --git a/DSL/Interpretation.hs b/DSL/Interpretation.hs
index 34137a9..e92ae8b 100644
--- a/DSL/Interpretation.hs
+++ b/DSL/Interpretation.hs
@@ -50,6 +50,7 @@ applyIntrinsic i m = do
       I_EQUAL       -> equal
       I_LESSTHAN    -> lessThan
       I_GREATERTHAN -> greaterThan
+      I_PUT         -> put
 
 applyCall :: ProcName -> Machine -> IO Machine
 applyCall _ m@Machine{ ok=False } = return m
-- 
cgit v1.2.1