From f5de14e922e1a8071c2a81e7c55141277c1cf2de Mon Sep 17 00:00:00 2001 From: panne Date: Mon, 29 Apr 2002 19:24:57 +0000 Subject: [PATCH] [project @ 2002-04-29 19:24:57 by panne] Guess what: SLIT => FSLIT :-} --- ghc/compiler/main/HscMain.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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("") 1 + loc = mkSrcLoc FSLIT("") 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("") 1 + loc = mkSrcLoc FSLIT("") 1 case parseIdentifier buf (mkPState loc exts) of -- 1.7.10.4