diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-08-30 22:45:46 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-08-30 22:45:46 +0200 |
| commit | 1f7ed2ee02222108684cfde8078e7a182f734a61 (patch) | |
| tree | 976175ede4ec12a6e4a65d5e45e0b1ee8eeff5e6 /src/AST/Pretty.hs | |
| parent | 172887fb577526de92b0653b5d3153114f8ce02a (diff) | |
WIP Build1
Diffstat (limited to 'src/AST/Pretty.hs')
| -rw-r--r-- | src/AST/Pretty.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/AST/Pretty.hs b/src/AST/Pretty.hs index 3473131..ba1b756 100644 --- a/src/AST/Pretty.hs +++ b/src/AST/Pretty.hs @@ -136,6 +136,10 @@ ppExpr' d val = \case EConst _ ty v -> return $ showString $ case ty of STI32 -> show v ; STI64 -> show v ; STF32 -> show v ; STF64 -> show v ; STBool -> show v + EIdx0 _ e -> do + e' <- ppExpr' 11 val e + return $ showParen (d > 10) $ showString "idx0 " . e' + EIdx1 _ a b -> do a' <- ppExpr' 9 val a b' <- ppExpr' 9 val b |