Commit 4557d944 authored by Ben Gamari's avatar Ben Gamari 🐢

Fix T12593

(cherry picked from commit 779bcc90cf8a52270bcd70a82442d01d35d7c788)
parent 15df5170
T12593.hs:11:16: error:
• Expecting two fewer arguments to ‘Free k k4 k5 p’
Expected kind ‘k0 -> k1 -> *’, but ‘Free k k4 k5 p’ has kind ‘*’
Expected kind ‘k3 -> k2 -> *’, but ‘Free k k4 k5 p’ has kind ‘*’
• In the type signature:
run :: k2 q =>
Free k k1 k2 p a b
......@@ -11,7 +11,7 @@ T12593.hs:12:31: error:
• Expecting one more argument to ‘k’
Expected a type, but
‘k’ has kind
‘(((k0 -> k1 -> *) -> Constraint) -> (k2 -> k3 -> *) -> *)
‘(((k3 -> k2 -> *) -> Constraint) -> (k1 -> k0 -> *) -> *)
-> Constraint’
• In the kind ‘k’
In the type signature:
......@@ -23,7 +23,7 @@ T12593.hs:12:40: error:
• Expecting two more arguments to ‘k4’
Expected a type, but
‘k4’ has kind
‘((k0 -> k1 -> *) -> Constraint) -> (k2 -> k3 -> *) -> *’
‘((k3 -> k2 -> *) -> Constraint) -> (k1 -> k0 -> *) -> *’
• In the kind ‘k1’
In the type signature:
run :: k2 q =>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment