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