ghc/tests/reader/should_compile/read002.hs

   1 -- !!! tests fixity reading and printing
   2 module Reader where
   3
   4 infixl 1 `f`
   5 infixr 2 \\\
   6 infix  3 :==>
   7 infix  4 `MkFoo`
   8
   9 data Foo = MkFoo Int | Float :==> Double
  10
  11 x `f` y = x
  12
  13 (\\\) :: (Eq a) => [a] -> [a] -> [a]
  14 (\\\) xs ys =  xs