[project @ 2002-04-29 19:24:57 by panne]

[ghc-hetmet.git] / ghc / compiler / main / HscMain.lhs

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index fd99a5e..1f7a1e9 100644 (file)
--- 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