diff options
| author | David Waern <unknown> | 2007-07-11 20:37:11 +0000 |
|---|---|---|
| committer | David Waern <unknown> | 2007-07-11 20:37:11 +0000 |
| commit | 3fe640b29fccb30943612ec1b99b8cd1dbc0fa9f (patch) | |
| tree | 021bc8f49354f0097251f1656fa8a09e10bce3f4 /src/Haddock/InterfaceFile.hs | |
| parent | 4404d4f8fe162719aca689ae1c786d43501cfd78 (diff) | |
Follow changes to record constructor representation
Diffstat (limited to 'src/Haddock/InterfaceFile.hs')
| -rw-r--r-- | src/Haddock/InterfaceFile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs index c4f24bef..5e8a9424 100644 --- a/src/Haddock/InterfaceFile.hs +++ b/src/Haddock/InterfaceFile.hs @@ -182,7 +182,7 @@ fromOnDiskName arr nc (pid, mod_name, occ) = let us = nsUniqs nc uniq = uniqFromSupply us - name = mkExternalName uniq mod occ noSrcLoc + name = mkExternalName uniq mod occ noSrcSpan new_cache = extendNameCache cache mod occ name in case splitUniqSupply us of { (us',_) -> |