diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2017-10-06 13:39:54 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2017-10-11 11:05:56 +0100 |
| commit | 79ae03aa32c277ae93827519ed7738938e3e1572 (patch) | |
| tree | 08bc17ad030d05d5446f3184bdac89daaeee8a97 /compiler | |
| parent | c81f66ccafdb4c6c7a09cfaf6819c8797c518491 (diff) | |
| download | haskell-79ae03aa32c277ae93827519ed7738938e3e1572.tar.gz | |
Change "cobox" to "co" in debug output
These coercions are /not/ boxed, so "cobox" is positively misleading.
And it's longer than necessary.
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/typecheck/TcMType.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcMType.hs b/compiler/typecheck/TcMType.hs index eabb44dde7..e89abe1c6f 100644 --- a/compiler/typecheck/TcMType.hs +++ b/compiler/typecheck/TcMType.hs @@ -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") {- |