blob: 1abf8910afc08f15abd572ba45b785299c9d56f9 (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE UndecidableInstances #-}
module UnsatFunDeps where
import GHC.TypeError
class C a b | a -> b
instance Unsatisfiable (Text "No") => C a b
|