blob: 920f28e8c90dd9340c69538f607d43f0141ec169 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
module T7848 where
data A = (:&&) Int Int | A Int Int
x (+) ((&)@z) ((:&&) a b) (c :&& d) (e `A` f) (A g h) = y
where infixl 3 `y`
y _ = (&)
{-# INLINE (&) #-}
{-# SPECIALIZE (&) :: a #-}
(&) = 'c'
|