ghc/compiler/tests/reader/read002.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

--!!! tests fixity reading and printing

infixl 1 `f`
infixr 2 \\\
infix  3 :==>
infix  4 `MkFoo`

data Foo = MkFoo Int | Float :==> Double

x `f` y = x

(\\\) :: (Eq a) => [a] -> [a] -> [a]
(\\\) xs ys =  xs