From b89d46e7df8ae65786abe37b5703392e9042db83 Mon Sep 17 00:00:00 2001 From: Matthew Hall Date: Thu, 23 Feb 2023 23:23:21 +1300 Subject: StackModifiers now use Void --- DSL/Types.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'DSL/Types.hs') diff --git a/DSL/Types.hs b/DSL/Types.hs index bcbe7a6..2faacc4 100644 --- a/DSL/Types.hs +++ b/DSL/Types.hs @@ -1,6 +1,7 @@ module DSL.Types where import Data.Map.Strict (Map) +import Data.Void import DSL.BaseParsers (Parser(..)) @@ -56,7 +57,7 @@ data Operation data StackModifier = StackModifier { smName :: String , smTypes :: [TypeCheck] - , smFunc :: Stack -> IO Stack + , smFunc :: Stack -> IO (Either Void Stack) } data Block -- cgit v1.2.1