From d081a94054ccfbbf2741d9339310c527505cba98 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 24 Aug 2009 08:46:14 +0000 Subject: Follow changes in GHC's interface file format Word32 instead of Int for FastString and Name offsets --- src/Haddock/InterfaceFile.hs | 8 ++++---- 1 file 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) -- cgit v1.2.3