From 4eb5c11261fbaab7dea9aee26a45989f9616366e Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Mon, 13 Jul 2009 15:50:07 +0200
Subject: [PATCH] Use noSrcSpan instead of a dummy SrcSpan.

---
 HsTools.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.30.2