summaryrefslogtreecommitdiff
path: root/testsuite/tests/th/TH_class1.hs
blob: 334a7d230153748018e39d3589e9599254fcc631 (plain)
1
2
3
4
5
6
7
{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies #-}

module TH_class1 where

$( [d| class Classy a b c d | a -> b c, c -> d where
            f :: a -> b -> c -> d
     |] )