diff options
| -rw-r--r-- | src/Haddock/InterfaceFile.hs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs index 680e71b7..8a4f8d78 100644 --- a/src/Haddock/InterfaceFile.hs +++ b/src/Haddock/InterfaceFile.hs @@ -12,7 +12,7 @@ module Haddock.InterfaceFile ( ) where -import Haddock.DocName +import Haddock.DocName () import Haddock.Types import Haddock.Exception @@ -45,11 +45,14 @@ data InterfaceFile = InterfaceFile { } -binaryInterfaceMagic = 0xD0Cface :: Word32 -binaryInterfaceVersion = 1 :: Word16 +binaryInterfaceMagic :: Word32 +binaryInterfaceMagic = 0xD0Cface +binaryInterfaceVersion :: Word16 +binaryInterfaceVersion = 1 -initBinMemSize = (1024*1024) :: Int +initBinMemSize :: Int +initBinMemSize = 1024*1024 writeInterfaceFile :: FilePath -> InterfaceFile -> IO () |