diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-05-30 14:00:48 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-05-30 14:00:48 +0000 |
| commit | b30f5ecfdae9dea8048c19051732b71f7633f9c9 (patch) | |
| tree | 1ef8607d8616290b9d2bb774e1df37df6ebebe36 /src/Haddock/InterfaceFile.hs | |
| parent | 3fe640b29fccb30943612ec1b99b8cd1dbc0fa9f (diff) | |
update to compile with the latest GHC & Cabal
Diffstat (limited to 'src/Haddock/InterfaceFile.hs')
| -rw-r--r-- | src/Haddock/InterfaceFile.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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',_) -> |