From 27ee85ae28ee6ef0b7d77086db1ece4927c8f0c0 Mon Sep 17 00:00:00 2001 From: Rowan Torbitzky-Lane Date: Sat, 1 Feb 2025 01:24:07 -0600 Subject: [PATCH] string name in StateFunc --- src/Push.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Push.hs b/src/Push.hs index d7755c8..d25f203 100644 --- a/src/Push.hs +++ b/src/Push.hs @@ -61,7 +61,7 @@ interpretExec state@(State {_exec = e : es}) = (GeneVectorBool val) -> interpretExec (state & exec .~ es & vectorBool .~ val : view vectorBool state) (GeneVectorString val) -> interpretExec (state & exec .~ es & vectorString .~ val : view vectorString state) (GeneVectorChar val) -> interpretExec (state & exec .~ es & vectorChar .~ val : view vectorChar state) - (StateFunc func) -> interpretExec $ func state {_exec = es} + (StateFunc (func, _)) -> interpretExec $ func state {_exec = es} (Block block) -> interpretExec (state {_exec = block ++ es}) (PlaceInput val) -> interpretExec (state {_exec = (view input state Map.! val) : es}) Close -> undefined -- This should be removed later. Will be converted to Blocks in the Plushy -> Exec stack process