diff options
| author | Matthew Hall <hallmatthew314@gmail.com> | 2023-02-23 23:23:21 +1300 |
|---|---|---|
| committer | Matthew Hall <hallmatthew314@gmail.com> | 2023-02-23 23:23:21 +1300 |
| commit | b89d46e7df8ae65786abe37b5703392e9042db83 (patch) | |
| tree | 2ed4605a80f7f407f98325a862b32629b40f0f78 /DSL/Types.hs | |
| parent | 1c2e8f59960c18b5e5794fba214a3f0906fb074d (diff) | |
StackModifiers now use Void
Diffstat (limited to 'DSL/Types.hs')
| -rw-r--r-- | DSL/Types.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |