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

Attacked the code generator and added bool support.

Browse source
This commit is contained in:
Samuel Hammersberg 2023-04-27 13:49:00 +02:00
parent 1a21698772
commit d026dca42f
5 changed files with 28 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Main.hs
View file

@ -166,4 +166,4 @@ printToErr = hPutStrLn stderr
fromErr :: Err a -> IO a
fromErr = either (\s -> printToErr s >> exitFailure) pure
prelude = "const x y = x\n\ndata Bool () where\n True : Bool ()\n False : Bool ()\n\nlt : Int -> Int -> Bool ()\nlt = \\x. \\y. const True (x + y)"
prelude = "\n\nconst x y = x\n\ndata Bool () where\n True : Bool ()\n False : Bool ()\n\nlt : Int -> Int -> Bool ()\nlt = \\x. \\y. const True (x + y)"