From 1be50f5d768e6dadd1b9466e56fabd7ba91bc058 Mon Sep 17 00:00:00 2001 From: David Waern Date: Sun, 10 Feb 2008 00:28:48 +0000 Subject: Fix some trivial warnings in H.InterfaceFile --- src/Haddock/InterfaceFile.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'src/Haddock') 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 () -- cgit v1.2.3