diff options
| author | Tom Smeding <t.j.smeding@uu.nl> | 2025-01-27 15:08:02 +0100 |
|---|---|---|
| committer | Tom Smeding <t.j.smeding@uu.nl> | 2025-01-27 15:08:02 +0100 |
| commit | 88fae8c2914b805a733b71de58ab672124e6069c (patch) | |
| tree | c155fb1a83ace92aab376202ebc8b4b8a919da7c /src/Compile.hs | |
| parent | 0bdc36d221703e5a2347d3d136d676a86bdb1b6a (diff) | |
Add ext field to remaining AST constructors
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);" |