Add support for --read-interface again

1 files changed, 10 insertions, 6 deletions

diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs
index 6441c503..7f2fd6f4 100644
--- a/src/Haddock/InterfaceFile.hs
+++ b/src/Haddock/InterfaceFile.hs
@@ -45,15 +45,19 @@ data InterfaceMod = InterfaceMod {
 }
 
 data InterfaceFile = InterfaceFile {
-  ifLinkEnv  :: LinkEnv
---  ifModules :: [InterfaceMod]  
+  ifLinkEnv :: LinkEnv,
+  ifModules :: [Module]  
 } 
 
 instance Binary InterfaceFile where
-  put_ bh (InterfaceFile x) = put_ bh (Map.toList x)
-  get  bh = do
-    env <- get bh
-    return (InterfaceFile (Map.fromList env))
+  put_ bh (InterfaceFile env mods) = do
+    put_ bh (Map.toList env)
+    put_ bh mods
+
+  get bh = do
+    env  <- get bh
+    mods <- get bh
+    return (InterfaceFile (Map.fromList env) mods)
 
 iface2interface iface = InterfaceMod {
   imModule      = ifaceMod             iface,