Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler
http://hackage.haskell.org/trac/ghc/changeset/753d5d3be971c643a998a639b5377e50cd1032b1 >--------------------------------------------------------------- commit 753d5d3be971c643a998a639b5377e50cd1032b1 Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Thu Oct 6 07:37:08 2011 +0100 Fix stupidity added to OptCoercion >--------------------------------------------------------------- compiler/types/OptCoercion.lhs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/types/OptCoercion.lhs b/compiler/types/OptCoercion.lhs index 70c21c2..3c30e12 100644 --- a/compiler/types/OptCoercion.lhs +++ b/compiler/types/OptCoercion.lhs @@ -170,7 +170,7 @@ opt_nth n co' = ASSERT( n < length cos ) cos !! n | otherwise - = NthCo n co' + = mkNthCo n co' ------------- @@ -181,7 +181,7 @@ opt_inst iss co' ty' | Just (tv, co'_body) <- splitForAllCo_maybe co' = substCoWithTy iss tv ty' co'_body - | otherwise = InstCo co' ty' + | otherwise = mkInstCo co' ty' ------------- _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
