Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

renamed and fixed const in prelude

Browse source
This commit is contained in:
sebastianselander 2023-04-28 14:01:05 +02:00
parent b27988b4d8
commit 1723796006
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/Main.hs
View file

@ -170,11 +170,12 @@ prelude :: String
prelude = prelude =
unlines unlines
[ "\n" [ "\n"
, "const : a -> b -> a" , "customHelperFunctionCuzPoorImplementation : Bool -> Int -> Bool"
, "const x y = x" , "customHelperFunctionCuzPoorImplementation x y = x"
, "data Bool () where" , "data Bool () where"
, " False : Bool ()" , " False : Bool ()"
, " True : Bool ()" , " True : Bool ()"
, "lt : Int -> Int -> Bool ()" , "lt : Int -> Int -> Bool ()"
, "lt x y = const True (x + y)" , "lt x y = customHelperFunctionCuzPoorImplementation True (x + y)"
, "\n"
] ]