9 lines
159 B
Text
9 lines
159 B
Text
data Maybe () where
|
|
Just : Int -> Maybe ()
|
|
Nothing : Maybe ()
|
|
|
|
demoFunc x = case x of
|
|
Just x => x + 24
|
|
Nothing => 0
|
|
|
|
main = demoFunc Nothing
|