msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

use overloadedstrings in coreprelude

Browse Source
This commit is contained in:
crumbtoo
2023-11-22 16:10:56 -07:00
parent 3f2dfe0c96
commit 29f193c8e0
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/Core/Examples.hs
View File

@@ -84,16 +84,16 @@ pairExample = [coreProg|
corePrelude :: Module corePrelude :: Module
corePrelude = Module (Just ("Prelude", [])) $ Program corePrelude = Module (Just ("Prelude", [])) $ Program
[ ScDef "id" ["x"] (Var "x") [ ScDef "id" ["x"] $ "x"
, ScDef "k" ["x", "y"] (Var "x") , ScDef "k" ["x", "y"] $ "x"
, ScDef "k1" ["x", "y"] (Var "y") , ScDef "k1" ["x", "y"] $ "y"
, ScDef "succ" ["f", "g", "x"] (Var "f" :$ Var "x" :$ (Var "g" :$ Var "x")) , ScDef "succ" ["f", "g", "x"] $ "f" :$ "x" :$ ("g" :$ "x")
, ScDef "compose" ["f", "g", "x"] (Var "f" :$ (Var "g" :$ Var "x")) , ScDef "compose" ["f", "g", "x"] "f" :$ ("g" :$ "x")
, ScDef "twice" ["f", "x"] (Var "f" :$ (Var "f" :$ Var "x")) , ScDef "twice" ["f", "x"] $ "f" :$ ("f" :$ "x")
, ScDef "False" [] $ Con 0 0 , ScDef "False" [] $ Con 0 0
, ScDef "True" [] $ Con 1 0 , ScDef "True" [] $ Con 1 0
, ScDef "MkPair" [] $ Con 1 2 , ScDef "MkPair" [] $ Con 1 2
-- , ScDef "fst" ["p"] $ "casePair#" :$ "p" :$ "k" , ScDef "fst" ["p"] $ "casePair#" :$ "p" :$ "k"
-- , ScDef "snd" ["p"] $ "casePair#" :$ "p" :$ "k1" , ScDef "snd" ["p"] $ "casePair#" :$ "p" :$ "k1"
] ]