isLeft :: Either a b -> Bool
isLeft e = case e of Left _ -> True
                     _      -> False
isLeft :: Either a b -> Bool
isLeft e = case e of Left _ -> True
                     _      -> False
isLeft e = case e of Left _ -> True
                     _      -> False