From b30f5ecfdae9dea8048c19051732b71f7633f9c9 Mon Sep 17 00:00:00 2001
From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 30 May 2007 14:00:48 +0000
Subject: update to compile with the latest GHC & Cabal

---
 src/Haddock/InterfaceFile.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Haddock/InterfaceFile.hs')

diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs
index 5e8a9424..54dc3618 100644
--- a/src/Haddock/InterfaceFile.hs
+++ b/src/Haddock/InterfaceFile.hs
@@ -16,6 +16,8 @@ import qualified Data.Map as Map
 import System.IO
 import Control.Monad
 
+import GHC
+import SrcLoc   ( noSrcSpan ) -- tmp, GHC now exports this
 import Binary
 import Name
 import UniqSupply
@@ -23,7 +25,6 @@ import UniqFM
 import IfaceEnv
 import Module
 import Packages
-import SrcLoc
 import HscTypes
 import FastMutInt
 import InstEnv
@@ -182,7 +183,7 @@ fromOnDiskName arr nc (pid, mod_name, occ) =
         let 
                 us        = nsUniqs nc
                 uniq      = uniqFromSupply us
-                name      = mkExternalName uniq mod occ noSrcSpan
+                name      = mkExternalName uniq mod occ noSrcLoc
                 new_cache = extendNameCache cache mod occ name
         in        
         case splitUniqSupply us of { (us',_) -> 
-- 
cgit v1.2.3