diff options
author | Simon Marlow <marlowsd@gmail.com> | 2009-08-24 08:46:14 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2009-08-24 08:46:14 +0000 |
commit | d081a94054ccfbbf2741d9339310c527505cba98 (patch) | |
tree | b558fc75e87c4f361b3b475015d7a4260f2f9ab1 /src | |
parent | 90d8c55f2416e9c04127596838e101c8a19580f8 (diff) |
Follow changes in GHC's interface file format
Word32 instead of Int for FastString and Name offsets
Diffstat (limited to 'src')
-rw-r--r-- | src/Haddock/InterfaceFile.hs | 8 |
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) |