Skip to content
Snippets Groups Projects
Commit b383edf2 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

[project @ 2002-02-15 09:32:47 by simonpj] 

Comments only
parent 87a229b8
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
ghc/compiler/typecheck/TcSimplify.lhs
+ 6
− 1
View file @ b383edf2
...@@ -670,9 +670,14 @@ tcSimplifyCheck ...@@ -670,9 +670,14 @@ tcSimplifyCheck
-- tcSimplifyCheck is used when checking expression type signatures, -- tcSimplifyCheck is used when checking expression type signatures,
-- class decls, instance decls etc. -- class decls, instance decls etc.
-- Note that we psss isFree (not isFreeAndInheritable) to tcSimplCheck --
-- NB: we psss isFree (not isFreeAndInheritable) to tcSimplCheck
-- It's important that we can float out non-inheritable predicates -- It's important that we can float out non-inheritable predicates
-- Example: (?x :: Int) is ok! -- Example: (?x :: Int) is ok!
--
-- NB: tcSimplifyCheck does not consult the
-- global type variables in the environment; so you don't
-- need to worry about setting them before calling tcSimplifyCheck
tcSimplifyCheck doc qtvs givens wanted_lie tcSimplifyCheck doc qtvs givens wanted_lie
= tcSimplCheck doc get_qtvs = tcSimplCheck doc get_qtvs
givens wanted_lie `thenTc` \ (qtvs', frees, binds) -> givens wanted_lie `thenTc` \ (qtvs', frees, binds) ->
......
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