From: panne <unknown>
Date: Mon, 29 Apr 2002 19:24:57 +0000 (+0000)
Subject: [project @ 2002-04-29 19:24:57 by panne]
X-Git-Tag: Approx_11550_changesets_converted~2087
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f5de14e922e1a8071c2a81e7c55141277c1cf2de;p=ghc-hetmet.git

[project @ 2002-04-29 19:24:57 by panne]
Guess what: SLIT => FSLIT    :-}
---

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index fd99a5e..1f7a1e9 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -660,7 +660,7 @@ hscParseStmt dflags str
 
       let exts = ExtFlags {glasgowExtsEF = dopt Opt_GlasgowExts dflags,
 			   parrEF	 = dopt Opt_PArr	dflags}
-	  loc  = mkSrcLoc SLIT("<interactive>") 1
+	  loc  = mkSrcLoc FSLIT("<interactive>") 1
 
       case parseStmt buf (mkPState loc exts) of {
 
@@ -744,7 +744,7 @@ myParseIdentifier dflags str
  
        let exts = ExtFlags {glasgowExtsEF = dopt Opt_GlasgowExts dflags,
 			    parrEF	  = dopt Opt_PArr	 dflags}
-	   loc  = mkSrcLoc SLIT("<interactive>") 1
+	   loc  = mkSrcLoc FSLIT("<interactive>") 1
 
        case parseIdentifier buf (mkPState loc exts) of