Commit 79ae03aa authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Change "cobox" to "co" in debug output

These coercions are /not/ boxed, so "cobox" is positively misleading.
And it's longer than necessary.
parent c81f66cc
......@@ -242,7 +242,7 @@ newDict cls tys
predTypeOccName :: PredType -> OccName
predTypeOccName ty = case classifyPredType ty of
ClassPred cls _ -> mkDictOcc (getOccName cls)
EqPred _ _ _ -> mkVarOccFS (fsLit "cobox")
EqPred _ _ _ -> mkVarOccFS (fsLit "co")
IrredPred _ -> mkVarOccFS (fsLit "irred")
{-
......
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