User:HowardBGolden/SyntaxTest

 1 module x as
 2 {
 3 t :: Int -> Int
 4 t i = i * 2
 5 }
 6 
 7 class Functor f where
 8   fmap :: (a -> b) -> f a -> f b
 9 
10   (<$) :: a        -> f b -> f a
11   (<$) = fmap . const