diff options
| author | simonpj@microsoft.com <unknown> | 2009-11-05 12:04:43 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-11-05 12:04:43 +0000 |
| commit | 8f53119f5772a8c8dc9fd08065cc86df7a4f0b26 (patch) | |
| tree | 9358e2f8fe418feb8ea289d9c5aaa07e0e7c3cb3 /compiler | |
| parent | 43b5afae2ef2a0ebd29d88dc379ddfc0c793bebd (diff) | |
| download | haskell-8f53119f5772a8c8dc9fd08065cc86df7a4f0b26.tar.gz | |
Update layout of error message slightly
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/typecheck/TcHsType.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcHsType.lhs b/compiler/typecheck/TcHsType.lhs index e277e5fe60..11288dc6d8 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 |