From ef32ff0a45ff6af2018254fd4de5f657bea63385 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 16 Aug 2001 09:59:38 +0000
Subject: [PATCH] [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.

---
 ghc/compiler/main/HscMain.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
1.7.10.4