blob: 192d8d15e86ea73d560f01df83b68baf0d2e813c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
T15648.hs:23:21: error:
• Couldn't match type ‘(a0 GHC.Prim.~# b0) -> JankyEquality a0 b0’
with ‘JankyEquality a a’
Expected type: JankyEquality a b
Actual type: (a0 GHC.Prim.~# b0) -> JankyEquality a0 b0
• Probable cause: ‘Jank’ is applied to too few arguments
In the expression: Jank
In an equation for ‘legitToJank’: legitToJank Legit = Jank
• Relevant bindings include
legitToJank :: LegitEquality a b -> JankyEquality a b
(bound at T15648.hs:23:1)
T15648.hs:30:10: error:
• Couldn't match expected type ‘(a GHC.Prim.~# b)
-> b GHC.Prim.~# a’
with actual type ‘b GHC.Prim.~# a’
• In the expression: unJank $ legitToJank $ mkLegit @b @a
In an equation for ‘ueqSym’:
ueqSym = unJank $ legitToJank $ mkLegit @b @a
• Relevant bindings include
ueqSym :: (a GHC.Prim.~# b) -> b GHC.Prim.~# a
(bound at T15648.hs:30:1)
|