aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2021-01-13 18:46:45 -0500
committerBen Gamari <ben@smart-cactus.org>2021-03-10 13:20:21 -0500
commitd1bf3e5030ebf0f8f7443b394abb96da2f216eb9 (patch)
tree09e16376912ac43c5d71edef7912f180c54cc41e /haddock-api/src/Haddock
parentbd206f09715420aaa62341c9a96411a684eee6e9 (diff)
Update for "FastString: Use FastMutInt instead of IORef Int"
Diffstat (limited to 'haddock-api/src/Haddock')
-rw-r--r--haddock-api/src/Haddock/InterfaceFile.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/haddock-api/src/Haddock/InterfaceFile.hs b/haddock-api/src/Haddock/InterfaceFile.hs
index 95bfc903..211c7d55 100644
--- a/haddock-api/src/Haddock/InterfaceFile.hs
+++ b/haddock-api/src/Haddock/InterfaceFile.hs
@@ -123,14 +123,12 @@ writeInterfaceFile filename iface = do
put_ bh0 symtab_p_p
-- Make some intial state
- symtab_next <- newFastMutInt
- writeFastMutInt symtab_next 0
+ symtab_next <- newFastMutInt 0
symtab_map <- newIORef emptyUFM
let bin_symtab = BinSymbolTable {
bin_symtab_next = symtab_next,
bin_symtab_map = symtab_map }
- dict_next_ref <- newFastMutInt
- writeFastMutInt dict_next_ref 0
+ dict_next_ref <- newFastMutInt 0
dict_map_ref <- newIORef emptyUFM
let bin_dict = BinDictionary {
bin_dict_next = dict_next_ref,