diff options
Diffstat (limited to 'compiler/main/PprTyThing.hs')
| -rw-r--r-- | compiler/main/PprTyThing.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/PprTyThing.hs b/compiler/main/PprTyThing.hs index 3e48ec3a8a..365a57c7b9 100644 --- a/compiler/main/PprTyThing.hs +++ b/compiler/main/PprTyThing.hs @@ -19,7 +19,7 @@ module PprTyThing ( #include "HsVersions.h" -import TypeRep ( TyThing(..) ) +import Type ( TyThing(..) ) import CoAxiom ( coAxiomTyCon ) import HscTypes( tyThingParent_maybe ) import MkIface ( tyThingToIfaceDecl ) @@ -156,7 +156,7 @@ pprTypeForUser :: Type -> SDoc -- Then we want to display -- (C a, Ord b) => stuff pprTypeForUser ty - = pprSigmaType (mkSigmaTy tvs ctxt tau) + = pprSigmaType (mkInvSigmaTy tvs ctxt tau) where (tvs, ctxt, tau) = tcSplitSigmaTy tidy_ty (_, tidy_ty) = tidyOpenType emptyTidyEnv ty |