X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FcodeGen%2FSMRep.lhs;fp=compiler%2FcodeGen%2FSMRep.lhs;h=521b62625a8b688245cabfdc755818eeb9169709;hb=e380d180947b309f6d548ddb8a3f8144c08aaff4;hp=c807703b132a404273aaf450134c03cacbf9b51d;hpb=cd829ab3b15e6a7c30cedde2ca59fb5617aec32c;p=ghc-hetmet.git

diff --git a/compiler/codeGen/SMRep.lhs b/compiler/codeGen/SMRep.lhs
index c807703..521b626 100644
--- a/compiler/codeGen/SMRep.lhs
+++ b/compiler/codeGen/SMRep.lhs
@@ -158,13 +158,13 @@ primRepHint FloatRep	= FloatHint
 primRepHint DoubleRep	= FloatHint
 
 idCgRep :: Id -> CgRep
-idCgRep = typeCgRep . idType
+idCgRep x = typeCgRep . idType $ x
 
 tyConCgRep :: TyCon -> CgRep
 tyConCgRep = primRepToCgRep . tyConPrimRep
 
 typeCgRep :: Type -> CgRep
-typeCgRep = primRepToCgRep . typePrimRep
+typeCgRep = primRepToCgRep . typePrimRep 
 
 typeHint :: Type -> MachHint
 typeHint = primRepHint . typePrimRep