blob: b5be6cc968418cc34744af437581c2e6771b4149 (
plain)
1
2
3
4
5
6
7
8
9
|
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeFamilies #-}
module T16616a where
class C a where
type T a b
instance C (Maybe a) where
type forall b. T (Maybe a) b = Either a b
|