From: simonpj@microsoft.com <unknown>
Date: Wed, 31 Dec 2008 14:41:31 +0000 (+0000)
Subject: White space and spelling in comments
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=2b398b2215fd5238e222bcb3013aa41d7b631cfa;p=ghc-hetmet.git

White space and spelling in comments
---

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 7739e0e..6d2d34a 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -823,7 +823,7 @@ tcTopSrcDecls boot_details
 
 	     	-- Second pass over class and instance declarations, 
         traceTc (text "Tc6") ;
-	(inst_binds, tcl_env)     <- setLclTypeEnv tcl_env $ tcInstDecls2 tycl_decls inst_infos ;
+	(inst_binds, tcl_env) <- setLclTypeEnv tcl_env $ tcInstDecls2 tycl_decls inst_infos ;
 	showLIE (text "after instDecls2") ;
 
 		-- Foreign exports
diff --git a/compiler/types/Type.lhs b/compiler/types/Type.lhs
index e2405a8..0912a2c 100644
--- a/compiler/types/Type.lhs
+++ b/compiler/types/Type.lhs
@@ -534,7 +534,7 @@ splitTyConApp_maybe (FunTy arg res)   = Just (funTyCon, [arg,res])
 splitTyConApp_maybe _                 = Nothing
 
 newTyConInstRhs :: TyCon -> [Type] -> Type
--- ^ Unwrap one 'layer' of newtype on a type constructor and it's arguments, using an 
+-- ^ Unwrap one 'layer' of newtype on a type constructor and its arguments, using an 
 -- eta-reduced version of the @newtype@ if possible
 newTyConInstRhs tycon tys 
     = ASSERT2( equalLength tvs tys1, ppr tycon $$ ppr tys $$ ppr tvs )