Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
a6069053
Commit
a6069053
authored
May 09, 2012
by
Simon Peyton Jones
Browse files
Cosmetics
parent
dd7522c3
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/typecheck/TcEvidence.lhs
View file @
a6069053
...
...
@@ -267,7 +267,7 @@ liftTcCoSubstWith tvs cos ty
Nothing -> mkTcReflCo ty
go (AppTy t1 t2) = mkTcAppCo (go t1) (go t2)
go (TyConApp tc tys) = mkTcTyConAppCo tc (map go tys)
go ty@(LitTy {}) = mkTcReflCo ty
go ty@(LitTy {}) = mkTcReflCo ty
go (ForAllTy tv ty) = mkTcForAllCo tv (go ty)
go (FunTy t1 t2) = mkTcFunCo (go t1) (go t2)
\end{code}
...
...
compiler/typecheck/TcSMonad.lhs
View file @
a6069053
...
...
@@ -517,11 +517,11 @@ data InertSet
, inert_solved :: PredMap CtEvidence -- All others
-- These two fields constitute a cache of solved (only!) constraints
-- See Note [Solved constraints]
--
*
Constraints of form (F xis ~ xi) live in inert_solved_funeqs,
--
-
Constraints of form (F xis ~ xi) live in inert_solved_funeqs,
-- all the others are in inert_solved
--
*
Used to avoid creating a new EvVar when we have a new goal that we
--
-
Used to avoid creating a new EvVar when we have a new goal that we
-- have solvedin the past
--
*
Stored not necessarily as fully rewritten
--
-
Stored not necessarily as fully rewritten
-- (ToDo: rewrite lazily when we lookup)
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment