fix some GADT record selector bugs (still some remaining)

[ghc-hetmet.git] / compiler / codeGen / CgExpr.lhs

diff --git a/compiler/codeGen/CgExpr.lhs b/compiler/codeGen/CgExpr.lhs
index e36b2ae..551a40b 100644 (file)
--- a/compiler/codeGen/CgExpr.lhs
+++ b/compiler/codeGen/CgExpr.lhs
@@ -98,7 +98,7 @@ cgExpr (StgLit lit)
   = do  { cmm_lit <- cgLit lit
        ; performPrimReturn rep (CmmLit cmm_lit) }
   where
   = do  { cmm_lit <- cgLit lit
        ; performPrimReturn rep (CmmLit cmm_lit) }
   where

-    rep = typeCgRep (literalType lit)
+    rep = (typeCgRep) (literalType lit)

 \end{code}
 
 
 \end{code}