printChar and printStr in prelude

This commit is contained in:
sebastianselander 2023-05-08 20:38:45 +02:00
parent 2fab7f2bdf
commit 84847b9abb

View file

@ -197,4 +197,13 @@ prelude =
, " False => True"
, " _ => False"
, " False => False"
, "data Unit where"
, " Unit : Unit"
, "\n"
, "printChar : Char -> Unit"
, "printChar = \\x. Unit"
, "\n"
, "printStr xs = case xs of"
, " Nil => Nil"
, " Cons x xs => Cons (print x) (printStr xs)"
]