diff options
| -rw-r--r-- | src/Interpreter/Rep.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Interpreter/Rep.hs b/src/Interpreter/Rep.hs index baf38fc..7ef9088 100644 --- a/src/Interpreter/Rep.hs +++ b/src/Interpreter/Rep.hs @@ -10,6 +10,7 @@ import GHC.TypeError import Array import AST +import AST.Pretty type family Rep t where @@ -74,4 +75,4 @@ showValue _ (STScal sty) x = case sty of STI32 -> shows x STI64 -> shows x STBool -> shows x -showValue _ STAccum{} _ = error "Cannot show accumulators" +showValue _ (STAccum t) _ = showString $ "<accumulator for " ++ ppTy 0 t ++ ">" |