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

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

diff --git a/compiler/basicTypes/Module.lhs b/compiler/basicTypes/Module.lhs
index fcfcbb1..5047be1 100644
--- a/compiler/basicTypes/Module.lhs
+++ b/compiler/basicTypes/Module.lhs
@@ -64,7 +64,6 @@ module Module
 	elemModuleSet
     ) where
 
-#include "HsVersions.h"
 import Outputable
 import qualified Pretty
 import Unique
@@ -282,18 +281,18 @@ packageIdString = unpackFS . packageIdFS
 integerPackageId, primPackageId,
   basePackageId, rtsPackageId, haskell98PackageId,
   thPackageId, ndpPackageId, mainPackageId  :: PackageId
-primPackageId      = fsToPackageId FSLIT("ghc-prim")
-integerPackageId   = fsToPackageId FSLIT("integer")
-basePackageId      = fsToPackageId FSLIT("base")
-rtsPackageId	   = fsToPackageId FSLIT("rts")
-haskell98PackageId = fsToPackageId FSLIT("haskell98")
-thPackageId        = fsToPackageId FSLIT("template-haskell")
-ndpPackageId       = fsToPackageId FSLIT("ndp")
+primPackageId      = fsToPackageId (fsLit "ghc-prim")
+integerPackageId   = fsToPackageId (fsLit "integer")
+basePackageId      = fsToPackageId (fsLit "base")
+rtsPackageId	   = fsToPackageId (fsLit "rts")
+haskell98PackageId = fsToPackageId (fsLit "haskell98")
+thPackageId        = fsToPackageId (fsLit "template-haskell")
+ndpPackageId       = fsToPackageId (fsLit "ndp")
 
 -- This is the package Id for the program.  It is the default package
 -- Id if you don't specify a package name.  We don't add this prefix
 -- to symbol name, since there can be only one main package per program.
-mainPackageId	   = fsToPackageId FSLIT("main")
+mainPackageId	   = fsToPackageId (fsLit "main")
 \end{code}
 
 %************************************************************************