Lower precedence for {-# UNPACK #-}
[ghc.git] / testsuite / tests / typecheck / should_fail / T2538.hs
1
2 -- Trac #2538
3 module ShouldFail where
4 import Data.Ix
5
6 f :: (Eq a => a -> a) -> Int
7 f = error "urk"
8
9 g :: [Eq a => a -> a] -> Int
10 g = error "urk"
11
12 h :: Ix (Eq a => a -> a) => Int
13 h = error "urk"