+++ /dev/null
-import "Prelude"
-
-foobar x = match x with
- Left lt -> foo lt
- Right rt -> bar rt
- where
- foo x = "left " + show x
- bar x = "right " + show x
-
-main = foobar (Left "ASD" :: Either String String)
---
-left "ASD"
\ No newline at end of file