From: simonpj <unknown>
Date: Fri, 21 Feb 2003 14:52:55 +0000 (+0000)
Subject: [project @ 2003-02-21 14:52:54 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1106
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d6b7d200353e0bcc5a19a43caf252f37dee5bc6c;p=ghc-hetmet.git

[project @ 2003-02-21 14:52:54 by simonpj]
Typos
---

diff --git a/ghc/compiler/typecheck/TcBinds.lhs b/ghc/compiler/typecheck/TcBinds.lhs
index 7a2ef3f..30cad8c 100644
--- a/ghc/compiler/typecheck/TcBinds.lhs
+++ b/ghc/compiler/typecheck/TcBinds.lhs
@@ -167,7 +167,7 @@ tc_binds_and_then top_lvl combiner (MonoBind bind sigs is_rec) do_next
 		   returnM (combiner (mkMonoBind Recursive (poly_binds `andMonoBinds` prag_binds)) 
 				     thing)
 
-	NotTopLevel	-- For nested bindings we must
+	NotTopLevel	-- For nested bindings we must do teh bindInstsOfLocalFuns thing
 		-> getLIE (tc_body poly_ids)		`thenM` \ ((prag_binds, thing), lie) ->
 
 			-- Create specialisations of functions bound here
@@ -194,7 +194,7 @@ tc_binds_and_then top_lvl combiner (MonoBind bind sigs is_rec) do_next
   where
     tc_body poly_ids 	-- Type check the pragmas and "thing inside"
       =   -- Extend the environment to bind the new polymorphic Ids
-	  tcExtendLocalValEnv poly_ids			$
+	  tcExtendLocalValEnv poly_ids	$
   
 	  -- Build bindings and IdInfos corresponding to user pragmas
 	  tcSpecSigs sigs		`thenM` \ prag_binds ->
diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs
index 6e65eec..591ce27 100644
--- a/ghc/compiler/typecheck/TcRnDriver.lhs
+++ b/ghc/compiler/typecheck/TcRnDriver.lhs
@@ -679,7 +679,7 @@ tc_rn_src_decls ds
 	-- Glue them on the front of the remaining decls and loop
 	(tc_envs, src_dus2) <- tc_rn_src_decls (spliced_decls ++ rest_ds) ;
 
-	return (tcg_envs, src_dus1 `plusDU` usesOnly splice_fvs `plusDU` src_dus2)
+	return (tc_envs, src_dus1 `plusDU` usesOnly splice_fvs `plusDU` src_dus2)
     }
 #endif /* GHCI */
     }}}