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"