add negExample3

2023-11-13 19:54:56 -07:00
parent 034f2cba9c
commit 694eaacbbd
1 changed files with 6 additions and 0 deletions
--- a/src/TI.hs
+++ b/src/TI.hs
@@ -320,6 +320,12 @@ negExample2 = Program
        Prim IntNegP :$ Prim (IntP 3)
    ]

+negExample3 :: Program
+negExample3 = Program
+    [ ScDef "main" [] $
+        "twice" :$ Prim IntNegP :$ Prim (IntP 3)
+    ]
+
 ----------------------------------------------------------------------------------

 instance Pretty TiState where