1 files changed, 2 insertions, 21 deletions
diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs
index fe383336..680e71b7 100644
--- a/src/Haddock/InterfaceFile.hs
+++ b/src/Haddock/InterfaceFile.hs
@@ -12,6 +12,7 @@ module Haddock.InterfaceFile (
 ) where
 
 
+import Haddock.DocName
 import Haddock.Types
 import Haddock.Exception
 
@@ -45,7 +46,7 @@ data InterfaceFile = InterfaceFile {
 
 
 binaryInterfaceMagic = 0xD0Cface :: Word32
-binaryInterfaceVersion = 0 :: Word16
+binaryInterfaceVersion = 1 :: Word16
 
 
 initBinMemSize = (1024*1024) :: Int
@@ -244,26 +245,6 @@ instance Binary InstalledInterface where
     return (InstalledInterface mod info (Map.fromList docMap) exps visExps)
 
 
-{-* Generated by DrIFT : Look, but Don't Touch. *-}
-instance Binary DocName where
-    put_ bh (Link aa) = do
-            putByte bh 0
-            put_ bh aa
-    put_ bh (NoLink ab) = do
-            putByte bh 1
-            put_ bh ab
-    get bh = do
-            h <- getByte bh
-            case h of
-              0 -> do
-                    aa <- get bh
-                    return (Link aa)
-              1 -> do
-                    ab <- get bh
-                    return (NoLink ab)
-              _ -> fail "invalid binary data found"
-
-
 instance Binary DocOption where
     put_ bh OptHide = do
             putByte bh 0