From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Mon, 13 Jul 2009 13:50:07 +0000 (+0200)
Subject: Use noSrcSpan instead of a dummy SrcSpan.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=4eb5c11261fbaab7dea9aee26a45989f9616366e;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Use noSrcSpan instead of a dummy SrcSpan.
---

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