Compile: Fix EError

1 files changed, 5 insertions, 2 deletions

diff --git a/src/Compile.hs b/src/Compile.hs
index 1355841..53269d6 100644
--- a/src/Compile.hs
+++ b/src/Compile.hs
@@ -749,10 +749,13 @@ compile' env = \case
   -- EAccum _ n a b e -> error "TODO" -- EAccum n (compile' a) (compile' b) (compile' e)
 
   EError _ t s -> do
-    name <- emitStruct t
     -- using 'show' here is wrong, but it's good enough for me.
     emit $ SVerbatim $ "fprintf(stderr, \"ERROR: %s\\n\", " ++ show s ++ "); exit(1);"
-    return $ CEStruct name []
+    case t of
+      STScal _ -> return (CELit "0")
+      _ -> do
+        name <- emitStruct t
+        return $ CEStruct name []
 
   EZero{} -> error "Compile: monoid operations should have been eliminated"
   EPlus{} -> error "Compile: monoid operations should have been eliminated"