9 lines
119 B
Text
9 lines
119 B
Text
data Bool () where {
|
|
True : Bool ()
|
|
False : Bool ()
|
|
};
|
|
|
|
toBool = case 0 of {
|
|
0 => False;
|
|
_ => True;
|
|
};
|