11 lines
No EOL
173 B
Text
11 lines
No EOL
173 B
Text
data Maybe () where {
|
|
Just : Int -> Maybe ()
|
|
Nothing : Maybe ()
|
|
};
|
|
|
|
demoFunc x = case x of {
|
|
Just x => x + 24;
|
|
Nothing => 0;
|
|
};
|
|
|
|
main = demoFunc (Just 5) ; |