From 7005cae860da3955c809391b0473b842f6c602d1 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 13:25:34 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in SMRep --- compiler/codeGen/SMRep.lhs | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/compiler/codeGen/SMRep.lhs b/compiler/codeGen/SMRep.lhs index 1845c44..28d1707 100644 --- a/compiler/codeGen/SMRep.lhs +++ b/compiler/codeGen/SMRep.lhs @@ -43,7 +43,6 @@ module SMRep ( rET_SMALL, rET_BIG ) where -#include "HsVersions.h" #include "../includes/MachDeps.h" import Id @@ -130,12 +129,12 @@ data CgRep deriving Eq instance Outputable CgRep where - ppr VoidArg = ptext SLIT("V_") - ppr PtrArg = ptext SLIT("P_") - ppr NonPtrArg = ptext SLIT("I_") - ppr LongArg = ptext SLIT("L_") - ppr FloatArg = ptext SLIT("F_") - ppr DoubleArg = ptext SLIT("D_") + ppr VoidArg = ptext (sLit "V_") + ppr PtrArg = ptext (sLit "P_") + ppr NonPtrArg = ptext (sLit "I_") + ppr LongArg = ptext (sLit "L_") + ppr FloatArg = ptext (sLit "F_") + ppr DoubleArg = ptext (sLit "D_") argMachRep :: CgRep -> MachRep argMachRep PtrArg = wordRep -- 1.7.10.4