User:HowardBGolden/SyntaxTest

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