aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/InterfaceFile.hs
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2016-09-13 16:44:49 -0400
committerBen Gamari <ben@smart-cactus.org>2016-10-13 20:01:26 -0400
commita5a51f99f42c7ee5e3bb4aeddf601b5f20a88134 (patch)
tree4257f5a58796e07014a1039c87203dd67f197063 /haddock-api/src/Haddock/InterfaceFile.hs
parentd73b286cb39ad9d02bee4b1a104e817783ceb195 (diff)
Update for refactoring of NameCache
Diffstat (limited to 'haddock-api/src/Haddock/InterfaceFile.hs')
-rw-r--r--haddock-api/src/Haddock/InterfaceFile.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/haddock-api/src/Haddock/InterfaceFile.hs b/haddock-api/src/Haddock/InterfaceFile.hs
index 770b9977..63419102 100644
--- a/haddock-api/src/Haddock/InterfaceFile.hs
+++ b/haddock-api/src/Haddock/InterfaceFile.hs
@@ -38,6 +38,7 @@ import FastString
import GHC hiding (NoLink)
import GhcMonad (withSession)
import HscTypes
+import NameCache
import IfaceEnv
import Name
import UniqFM
@@ -125,6 +126,7 @@ writeInterfaceFile filename iface = do
-- put the main thing
let bh = setUserData bh0 $ newWriteState (putName bin_symtab)
+ (putName bin_symtab)
(putFastString bin_dict)
put_ bh iface