[commit: ghc] supercompiler: Fix stupidity added to OptCoercion (753d5d3)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : supercompiler

http://hackage.haskell.org/trac/ghc/changeset/753d5d3be971c643a998a639b5377e50cd1032b1

>---------------------------------------------------------------

commit 753d5d3be971c643a998a639b5377e50cd1032b1
Author: Max Bolingbroke <[email protected]>
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'
 
 -------------