Commit d6b7d200 authored by simonpj's avatar simonpj

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

Typos
parent 877d4fbd
......@@ -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 ->
......
......@@ -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 */
}}}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment