[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 (file)
--- 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 (file)
--- 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 */
     }}}