one basic char instruction

2025-01-25 00:16:08 -06:00 · 2025-01-25 00:16:08 -06:00 · c17e0df4da
commit c17e0df4da
parent 4ad47b5308
1 changed files with 10 additions and 0 deletions
--- a/src/Instructions/CharInstructions.hs
+++ b/src/Instructions/CharInstructions.hs
@ -0,0 +1,10 @@
+module Instructions.CharInstructions where
+
+import State
+import Instructions.GenericInstructions
+
+instructionCharConcat :: State -> State
+instructionCharConcat state@(State {_char = c1 : c2 : cs, _string = ss}) = state{_char = cs, _string = [c1, c2] : ss}
+instructionCharConcat state = state
+
+