Make the example more compelling

2020-10-29 23:04:59 -07:00 · 2020-10-29 23:04:59 -07:00 · 148784ef4c
commit 148784ef4c
--- a/HW4.idr
+++ b/HW4.idr
@ -38,7 +38,9 @@ initialState = (IntTy, IntTy, IntTy)
 testProg : Prog Main.initialState Main.initialState
 testProg =
  [ Store A (Lit 1 `Leq` Lit 2)
-  , Store A (Lit 1)
+  , If (Load A)
+    [ Store A (Lit 1) ]
+    [ Store A (Lit 2) ]
  , Store B (Lit 2)
  , Store R (Add (Load A) (Load B))
  ]