aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2009-08-24 08:46:14 +0000
committerSimon Marlow <marlowsd@gmail.com>2009-08-24 08:46:14 +0000
commitd081a94054ccfbbf2741d9339310c527505cba98 (patch)
treeb558fc75e87c4f361b3b475015d7a4260f2f9ab1
parent90d8c55f2416e9c04127596838e101c8a19580f8 (diff)
Follow changes in GHC's interface file format
Word32 instead of Int for FastString and Name offsets
-rw-r--r--src/Haddock/InterfaceFile.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs
index 7b138993..d2416afe 100644
--- a/src/Haddock/InterfaceFile.hs
+++ b/src/Haddock/InterfaceFile.hs
@@ -215,13 +215,13 @@ putName BinSymbolTable{
= do
symtab_map <- readIORef symtab_map_ref
case lookupUFM symtab_map name of
- Just (off,_) -> put_ bh off
+ Just (off,_) -> put_ bh (fromIntegral off :: Word32)
Nothing -> do
off <- readFastMutInt symtab_next
writeFastMutInt symtab_next (off+1)
writeIORef symtab_map_ref
$! addToUFM symtab_map name (off,name)
- put_ bh off
+ put_ bh (fromIntegral off :: Word32)
data BinSymbolTable = BinSymbolTable {
@@ -238,10 +238,10 @@ putFastString BinDictionary { bin_dict_next = j_r,
out <- readIORef out_r
let unique = getUnique f
case lookupUFM out unique of
- Just (j, _) -> put_ bh j
+ Just (j, _) -> put_ bh (fromIntegral j :: Word32)
Nothing -> do
j <- readFastMutInt j_r
- put_ bh j
+ put_ bh (fromIntegral j :: Word32)
writeFastMutInt j_r (j + 1)
writeIORef out_r $! addToUFM out unique (j, f)