cleaning duties

2023-11-23 01:34:31 -07:00
parent d84fe56fbb
commit f4d88e9478
2 changed files with 25 additions and 22 deletions
--- a/src/Core/Examples.hs
+++ b/src/Core/Examples.hs
@@ -78,10 +78,14 @@ facExample = [coreProg|
    main = fac 3;
 |]

-pairExample = [coreProg|
+pairExample1 = [coreProg|
    main = fst (snd (fst (MkPair (MkPair 1 (MkPair 2 3)) 4)));
 |]

+pairExample2 = [coreProg|
+    main = (if# False fst snd) (MkPair 2 3);
+|]
+
 corePrelude :: Module
 corePrelude = Module (Just ("Prelude", [])) $ Program
    [ ScDef "id" ["x"] $ "x"