X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=HsTools.hs;h=1bad94167b9f0a5d197798ba290e7c477dd2511e;hb=b8c1e8554ba8aee73bc9d9a54bb3cb32f7930957;hp=d132ce874033020c12071996e3c112ec92477ce7;hpb=87bdc71306c507319ff560d3dd3253e17e9c46fe;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/HsTools.hs b/HsTools.hs
index d132ce8..1bad941 100644
--- 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