churf/sample-programs/example-programs/ex4.crf
2023-03-31 18:17:28 +02:00

11 lines
No EOL
172 B
Text

data Maybe () where {
Just : Int -> Maybe ()
Nothing : Maybe ()
};
demoFunc x = case x of {
Just x => x + 24;
Nothing => 0;
};
main = demoFunc Nothing ;