Use noSrcSpan instead of a dummy SrcSpan.

diff --git a/HsTools.hs b/HsTools.hs
index d132ce874033020c12071996e3c112ec92477ce7..1bad94167b9f0a5d197798ba290e7c477dd2511e 100644 (file)
--- a/HsTools.hs
+++ b/HsTools.hs
@@ -162,7 +162,7 @@ execCore expr = do
         -- to run an IO-monad-inside-a-GHC-monad for some reason. I don't really
         -- understand what it means, but it works.
         env <- GHC.getSession
-        let srcspan = SrcLoc.mkGeneralSrcSpan (FastString.fsLit "XXX")
+        let srcspan = SrcLoc.noSrcSpan
         hval <- MonadUtils.liftIO $ HscMain.compileExpr env srcspan expr
         let res = Unsafe.Coerce.unsafeCoerce hval :: Int
         return $ Unsafe.Coerce.unsafeCoerce hval