Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/03e7ca11a98828116676028648a8a0c6fff9772b >--------------------------------------------------------------- commit 03e7ca11a98828116676028648a8a0c6fff9772b Author: Simon Peyton Jones <[email protected]> Date: Tue Aug 2 13:34:35 2011 +0100 Add a comment >--------------------------------------------------------------- compiler/typecheck/TcInteract.lhs | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/compiler/typecheck/TcInteract.lhs b/compiler/typecheck/TcInteract.lhs index 983df3c..457715f 100644 --- a/compiler/typecheck/TcInteract.lhs +++ b/compiler/typecheck/TcInteract.lhs @@ -112,6 +112,8 @@ updCCanMap (a,ct) cmap Derived {} -> cmap { cts_derived = insert_into (cts_derived cmap) } where insert_into m = addToUFM_C (flip unionBags) m a (singleCCan ct) + -- The "flip" is a horrid hack to maintain constraints in the order + -- that the vectoriser expects them. See Trac #5369 getRelevantCts :: Uniquable a => a -> CCanMap a -> (CanonicalCts, CCanMap a) -- Gets the relevant constraints and returns the rest of the CCanMap _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
