Add non-recursive let-bindings for types

[ghc-hetmet.git] / compiler / coreSyn / PprCore.lhs

diff --git a/compiler/coreSyn/PprCore.lhs b/compiler/coreSyn/PprCore.lhs
index d01c710..4c08d4c 100644 (file)
--- a/compiler/coreSyn/PprCore.lhs
+++ b/compiler/coreSyn/PprCore.lhs
@@ -250,6 +250,8 @@ instance OutputableBndr Var where
 
 pprCoreBinder :: BindingSite -> Var -> SDoc
 pprCoreBinder LetBind binder
+  | isTyVar binder = pprTypedBinder binder
+  | otherwise
   = vcat [sig, pprIdDetails binder, pragmas]
   where
     sig     = pprTypedBinder binder