diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-02-25 23:56:16 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-02-25 23:56:16 +0100 |
| commit | 7fa10a9a07c7160531baf595d1111277c17a38b2 (patch) | |
| tree | 24b7263da33490d954b063926d509e1a10193687 /src/Interpreter | |
| parent | 2c2b80264ae5777f0a759abb5571cbe68071c7e7 (diff) | |
Compile: Emit structs in proper order
Diffstat (limited to 'src/Interpreter')
| -rw-r--r-- | src/Interpreter/Rep.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Interpreter/Rep.hs b/src/Interpreter/Rep.hs index 335ad1f..ac06915 100644 --- a/src/Interpreter/Rep.hs +++ b/src/Interpreter/Rep.hs @@ -76,7 +76,7 @@ showValue _ (STScal sty) x = case sty of STI32 -> shows x STI64 -> shows x STBool -> shows x -showValue _ (STAccum t) _ = showString $ "<accumulator for " ++ ppTy 0 t ++ ">" +showValue _ (STAccum t) _ = showString $ "<accumulator for " ++ ppSTy 0 t ++ ">" showEnv :: SList STy env -> SList Value env -> String showEnv = \env vals -> "[" ++ intercalate ", " (showEntries env vals) ++ "]" |