From: Ian Lynagh <igloo@earth.li>
Date: Sat, 12 Apr 2008 13:58:20 +0000 (+0000)
Subject: (F)SLIT -> (f)sLit in CmmLint
X-Git-Tag: 2008-05-28~288
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5572f26db9b94f3d802c4cacfae11084aa3eebe0;p=ghc-hetmet.git

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

diff --git a/compiler/cmm/CmmLint.hs b/compiler/cmm/CmmLint.hs
index c4aee8a..bf10135 100644
--- a/compiler/cmm/CmmLint.hs
+++ b/compiler/cmm/CmmLint.hs
@@ -17,8 +17,6 @@ module CmmLint (
   cmmLint, cmmLintTop
   ) where
 
-#include "HsVersions.h"
-
 import Cmm
 import CLabel
 import MachOp
@@ -43,7 +41,7 @@ cmmLintTop top = runCmmLint $ lintCmmTop top
 runCmmLint :: CmmLint a -> Maybe SDoc
 runCmmLint l = 
    case unCL l of
-	Left err -> Just (ptext SLIT("Cmm lint error:") $$ nest 2 err)
+	Left err -> Just (ptext (sLit "Cmm lint error:") $$ nest 2 err)
 	Right _  -> Nothing
 
 lintCmmTop :: (GenCmmTop h i (ListGraph CmmStmt)) -> CmmLint ()