printChar and printStr in prelude
This commit is contained in:
parent
2fab7f2bdf
commit
84847b9abb
1 changed files with 9 additions and 0 deletions
|
|
@ -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)"
|
||||
]
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue