From: simonmar <unknown>
Date: Thu, 16 Aug 2001 09:59:38 +0000 (+0000)
Subject: [project @ 2001-08-16 09:59:38 by simonmar]
X-Git-Tag: Approximately_9120_patches~1216
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ef32ff0a45ff6af2018254fd4de5f657bea63385;p=ghc-hetmet.git

[project @ 2001-08-16 09:59:38 by simonmar]
Set the SrcLoc for expressions typed on the command line to
<interactive>:1 rather than <no file>:0.
---

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 0414d7f..8e8aa38 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -576,7 +576,7 @@ hscParseStmt dflags str
 
       case parseStmt buf PState{ bol = 0#, atbol = 1#,
 	 		         context = [], glasgow_exts = glaexts,
-			         loc = mkSrcLoc SLIT("<no file>") 0 } of {
+			         loc = mkSrcLoc SLIT("<interactive>") 1 } of {
 
 	PFailed err -> do { hPutStrLn stderr (showSDoc err);
 --	Not yet implemented in <4.11    freeStringBuffer buf;