From c17e0df4da6172d3e75e7edc7d701a60c7d0aca3 Mon Sep 17 00:00:00 2001 From: Rowan Torbitzky-Lane Date: Sat, 25 Jan 2025 00:16:08 -0600 Subject: [PATCH] one basic char instruction --- src/Instructions/CharInstructions.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 src/Instructions/CharInstructions.hs diff --git a/src/Instructions/CharInstructions.hs b/src/Instructions/CharInstructions.hs new file mode 100644 index 0000000..9b59a11 --- /dev/null +++ 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 + +