-class Functor f where\r
- map :: (a -> b) -> f a -> f b\r
-\r
-data Either a b = Left a | Right b\r
-\r
-instance Functor (Either a) where\r
- map _ (Left x) = Left x\r
- map f (Right y) = Right (f y)\r
-\r
-id :: Integer -> Integer\r
-id x = x\r
-\r
-main = map id (Left (12 :: Integer))\r
---\r
+class Functor f where
+ map :: (a -> b) -> f a -> f b
+
+data Either a b = Left a | Right b
+
+instance Functor (Either a) where
+ map _ (Left x) = Left x
+ map f (Right y) = Right (f y)
+
+id :: Integer -> Integer
+id x = x
+
+main = map id (Left (12 :: Integer))
+--
(Left 12)
\ No newline at end of file