ghc/compiler/tests/reader/read002.hs

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