Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/e332180e4a5dd816f442aaf11a707b08628ad19f >--------------------------------------------------------------- commit e332180e4a5dd816f442aaf11a707b08628ad19f Author: Simon Peyton Jones <[email protected]> Date: Tue Nov 29 11:00:32 2011 +0000 White space only >--------------------------------------------------------------- compiler/typecheck/TcUnify.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/typecheck/TcUnify.lhs b/compiler/typecheck/TcUnify.lhs index f3117fa..ca34ff7 100644 --- a/compiler/typecheck/TcUnify.lhs +++ b/compiler/typecheck/TcUnify.lhs @@ -853,7 +853,7 @@ uUnfilledVars origin swapped tv1 details1 tv2 details2 (EQ, MetaTv i1 ref1, MetaTv i2 ref2) | nicer_to_update_tv1 i1 i2 -> updateMeta tv1 ref1 ty2 | otherwise -> updateMeta tv2 ref2 ty1 - (EQ, MetaTv _ ref1, _) -> updateMeta tv1 ref1 ty2 + (EQ, MetaTv _ ref1, _) -> updateMeta tv1 ref1 ty2 (EQ, _, MetaTv _ ref2) -> updateMeta tv2 ref2 ty1 -- Can't do it in-place, so defer _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
