X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;h=4cd637fb341d6b751f57bc75751b21571dba5361;hp=9068502f88ebe1e640da95a577c8cc836a893492;hb=d8b99b7e9b2ce9fd8ba97fa10657082ceac09c59;hpb=72462499b891d5779c19f3bda03f96e24f9554ae

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 9068502..4cd637f 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -2012,6 +2012,6 @@ sL span a = span `seq` a `seq` L span a
 fileSrcSpan :: P SrcSpan
 fileSrcSpan = do 
   l <- getSrcLoc; 
-  let loc = mkSrcLoc (srcLocFile l) 1 0;
+  let loc = mkSrcLoc (srcLocFile l) 1 1;
   return (mkSrcSpan loc loc)
 }