diff options
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 |