diff options
Diffstat (limited to 'src/Compile.hs')
| -rw-r--r-- | src/Compile.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Compile.hs b/src/Compile.hs index 0db0d0f..05d51c1 100644 --- a/src/Compile.hs +++ b/src/Compile.hs @@ -313,11 +313,11 @@ compile' env = \case ECustom _ t1 t2 t3 a b c e1 e2 -> error "TODO" -- ECustom ext t1 t2 t3 (compile' a) (compile' b) (compile' c) (compile' e1) (compile' e2) - EWith a b -> error "TODO" -- EWith (compile' a) (compile' b) + EWith _ a b -> error "TODO" -- EWith (compile' a) (compile' b) - EAccum n a b e -> error "TODO" -- EAccum n (compile' a) (compile' b) (compile' e) + EAccum _ n a b e -> error "TODO" -- EAccum n (compile' a) (compile' b) (compile' e) - EError t s -> do + 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);" |