11 lines
195 B
Text
11 lines
195 B
Text
data Number() where
|
|
One: Number ()
|
|
Two: Number ()
|
|
|
|
numberToInt : Number () -> Int
|
|
numberToInt n = case n of
|
|
One => 1
|
|
Two => 2
|
|
|
|
main = numberToInt One
|
|
|