blob: 43b6491def75002e6152b2cb4ff4b845cf60fbd9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
{-# LANGUAGE ConstraintKinds #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE QuantifiedConstraints #-}
{-# LANGUAGE UndecidableInstances #-}
module T14833 where
data Dict c where
Dict :: c => Dict c
class (a => b) => Implies a b
instance (a => b) => Implies a b
-- Works ok
iota1 :: (() => a) => Dict a
iota1 = Dict
iota2 :: Implies () a => Dict a
iota2 = Dict
{-
[G] Implies () a
[G] (() => a) -- By superclass
[W] a
-}
|