diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-01-13 18:46:45 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2021-03-10 13:20:21 -0500 |
| commit | d1bf3e5030ebf0f8f7443b394abb96da2f216eb9 (patch) | |
| tree | 09e16376912ac43c5d71edef7912f180c54cc41e | |
| parent | bd206f09715420aaa62341c9a96411a684eee6e9 (diff) | |
Update for "FastString: Use FastMutInt instead of IORef Int"
| -rw-r--r-- | haddock-api/src/Haddock/InterfaceFile.hs | 6 |
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, |