Commit cd6658d0 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Suggest -XRelaxedPolyRec rather than -fglasgow-exts in an error message

parent cb8184db
...@@ -996,7 +996,7 @@ unifyTheta :: TcThetaType -> TcThetaType -> TcM [CoercionI] ...@@ -996,7 +996,7 @@ unifyTheta :: TcThetaType -> TcThetaType -> TcM [CoercionI]
unifyTheta theta1 theta2 unifyTheta theta1 theta2
= do { checkTc (equalLength theta1 theta2) = do { checkTc (equalLength theta1 theta2)
(vcat [ptext (sLit "Contexts differ in length"), (vcat [ptext (sLit "Contexts differ in length"),
nest 2 $ parens $ ptext (sLit "Use -fglasgow-exts to allow this")]) nest 2 $ parens $ ptext (sLit "Use -XRelaxedPolyRec to allow this")])
; uList unifyPred theta1 theta2 ; uList unifyPred theta1 theta2
} }
......
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