From: Ian Lynagh <igloo@earth.li>
Date: Sat, 12 Apr 2008 14:07:41 +0000 (+0000)
Subject: (F)SLIT -> (f)sLit in CgPrimOp
X-Git-Tag: 2008-05-28~282
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=61ed9c29ee3bdac14fb6ee7d37f979f8258d7a71

(F)SLIT -> (f)sLit in CgPrimOp
---

diff --git a/compiler/codeGen/CgPrimOp.hs b/compiler/codeGen/CgPrimOp.hs
index 207ffe2..3a3ea12 100644
--- a/compiler/codeGen/CgPrimOp.hs
+++ b/compiler/codeGen/CgPrimOp.hs
@@ -17,8 +17,6 @@ module CgPrimOp (
    cgPrimOp
  ) where
 
-#include "HsVersions.h"
-
 import ForeignCall
 import ClosureInfo
 import StgSyn
@@ -132,7 +130,7 @@ emitPrimOp [res] ParOp [arg] live
         NoC_SRT -- No SRT b/c we do PlayRisky
         CmmMayReturn
   where
-	newspark = CmmLit (CmmLabel (mkRtsCodeLabel SLIT("newSpark")))
+	newspark = CmmLit (CmmLabel (mkRtsCodeLabel (sLit "newSpark")))
 
 emitPrimOp [res] ReadMutVarOp [mutv] live
    = stmtC (CmmAssign (CmmLocal res) (cmmLoadIndexW mutv fixedHdrSize))