Add Haddock `/Since: 4.7.0.0/` comments to new symbols
[packages/base.git] / GHC / Fingerprint.hs
index f4ebd21..1f712f5 100644 (file)
@@ -6,7 +6,7 @@
   #-}
 
 -- ----------------------------------------------------------------------------
--- 
+--
 --  (c) The University of Glasgow 2006
 --
 -- Fingerprints for recompilation checking and ABI versioning, and
@@ -15,7 +15,7 @@
 -- ----------------------------------------------------------------------------
 
 module GHC.Fingerprint (
-        Fingerprint(..), fingerprint0, 
+        Fingerprint(..), fingerprint0,
         fingerprintData,
         fingerprintString,
         fingerprintFingerprints,
@@ -73,10 +73,10 @@ fingerprintString str = unsafeDupablePerformIO $
 
 -- | Computes the hash of a given file.
 -- This function loops over the handle, running in constant memory.
+--
+-- /Since: 4.7.0.0/
 getFileHash :: FilePath -> IO Fingerprint
 getFileHash path = withBinaryFile path ReadMode $ \h -> do
-  fileSize <- hFileSize h
-
   allocaBytes SIZEOF_STRUCT_MD5CONTEXT $ \pctxt -> do
     c_MD5Init pctxt
 
@@ -114,4 +114,3 @@ foreign import ccall unsafe "__hsbase_MD5Update"
    c_MD5Update :: Ptr MD5Context -> Ptr Word8 -> CInt -> IO ()
 foreign import ccall unsafe "__hsbase_MD5Final"
    c_MD5Final  :: Ptr Word8 -> Ptr MD5Context -> IO ()
-