diff options
| author | Matthew Hall <hallmatthew314@gmail.com> | 2023-02-24 23:03:33 +1300 |
|---|---|---|
| committer | Matthew Hall <hallmatthew314@gmail.com> | 2023-02-24 23:03:33 +1300 |
| commit | 1977b7ad1e86d2b922737eb04741607e9c9a991a (patch) | |
| tree | 24653cb78f5411e79d1ede853115ca38ccd80aa4 /DSL/Interpretation.hs | |
| parent | b89d46e7df8ae65786abe37b5703392e9042db83 (diff) | |
Better printing functionsmain
Diffstat (limited to 'DSL/Interpretation.hs')
| -rw-r--r-- | DSL/Interpretation.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |