testsuite/tests/parser/should_compile/read002.hs


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

-- !!! tests fixity reading and printing
module ShouldCompile where

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