13 lines
173 B
Text
13 lines
173 B
Text
data Either(a b) where {
|
|
Left: a -> Either (a b)
|
|
Right: b -> Either (a b)
|
|
};
|
|
|
|
unwrapLeft x = case x of {
|
|
Left y => y;
|
|
};
|
|
|
|
wow = Left 5;
|
|
|
|
main = unwrapLeft wow;
|
|
|