X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcHsType.lhs;h=11288dc6d8500b614208e0309cd3023131b69f1b;hp=e277e5fe6083d180d2c776a1d693ae3fcd9b766f;hb=8f53119f5772a8c8dc9fd08065cc86df7a4f0b26;hpb=43b5afae2ef2a0ebd29d88dc379ddfc0c793bebd

diff --git a/compiler/typecheck/TcHsType.lhs b/compiler/typecheck/TcHsType.lhs
index e277e5f..11288dc 100644
--- a/compiler/typecheck/TcHsType.lhs
+++ b/compiler/typecheck/TcHsType.lhs
@@ -1049,7 +1049,7 @@ checkExpectedKind ty act_kind (EK exp_kind ek_ctxt)
 
 \begin{code}
 pprHsSigCtxt :: UserTypeCtxt -> LHsType Name -> SDoc
-pprHsSigCtxt ctxt hs_ty = vcat [ ptext (sLit "In") <+> pprUserTypeCtxt ctxt <> colon, 
+pprHsSigCtxt ctxt hs_ty = sep [ ptext (sLit "In") <+> pprUserTypeCtxt ctxt <> colon, 
 				 nest 2 (pp_sig ctxt) ]
   where
     pp_sig (FunSigCtxt n)  = pp_n_colon n