Fix #11287.
[ghc.git] / testsuite / tests / th / TH_class1.hs
1 {-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies #-}
2
3 module TH_class1 where
4
5 $( [d| class Classy a b c d | a -> b c, c -> d where
6 f :: a -> b -> c -> d
7 |] )