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

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

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index 0b8a5a2..f686f34 100644
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -32,8 +32,6 @@ module HscMain
     , makeSimpleDetails
     ) where
 
-#include "HsVersions.h"
-
 #ifdef GHCI
 import CodeOutput	( outputForeignStubs )
 import ByteCodeGen	( byteCodeGen, coreExprToBCOs )
@@ -929,7 +927,7 @@ hscParseThing parser dflags str
 
       buf <- stringToStringBuffer str
 
-      let loc  = mkSrcLoc FSLIT("<interactive>") 1 0
+      let loc  = mkSrcLoc (fsLit "<interactive>") 1 0
 
       case unP parser (mkPState buf loc dflags) of {