From 2b398b2215fd5238e222bcb3013aa41d7b631cfa Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Wed, 31 Dec 2008 14:41:31 +0000 Subject: [PATCH] White space and spelling in comments --- compiler/typecheck/TcRnDriver.lhs | 2 +- compiler/types/Type.lhs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 ) -- 1.7.10.4