[project @ 2004-10-01 19:23:47 by panne]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcBinds.lhs

diff --git a/ghc/compiler/typecheck/TcBinds.lhs b/ghc/compiler/typecheck/TcBinds.lhs
index f9bcc6d..d73594a 100644 (file)
--- a/ghc/compiler/typecheck/TcBinds.lhs
+++ b/ghc/compiler/typecheck/TcBinds.lhs
@@ -579,9 +579,9 @@ tcTySig sig1 (L span (Sig (L _ name) ty))
        ;   Just tenv -> do
        ; case check_tvs tenv tvs of
            Nothing   -> bale_out
-           Just tvs' -> do 
+           Just tvs' -> do {
 
-       { let subst  = mkTvSubst tenv
+         let subst  = mkTvSubst tenv
              theta' = substTheta subst theta
              tau'   = substTy subst tau
        ; loc <- getInstLoc (SigOrigin rigid_info)