[commit: packages/base] master: Fix -Werror failure in GHC.Fingerprint (ab4a453)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/base

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/ab4a453d755eb6482e0e6d6878ab681410c1baa1/base

>---------------------------------------------------------------

commit ab4a453d755eb6482e0e6d6878ab681410c1baa1
Author: Austin Seipp <aseipp at pobox.com>
Date:   Thu Aug 22 16:21:58 2013 -0500

    Fix -Werror failure in GHC.Fingerprint
    
    Signed-off-by: Austin Seipp <aseipp at pobox.com>


>---------------------------------------------------------------

ab4a453d755eb6482e0e6d6878ab681410c1baa1
 GHC/Fingerprint.hs |    2 --
 1 file changed, 2 deletions(-)

diff --git a/GHC/Fingerprint.hs b/GHC/Fingerprint.hs
index f4ebd21..4b1d2b0 100644
--- a/GHC/Fingerprint.hs
+++ b/GHC/Fingerprint.hs
@@ -75,8 +75,6 @@ fingerprintString str = unsafeDupablePerformIO $
 -- This function loops over the handle, running in constant memory.
 getFileHash :: FilePath -> IO Fingerprint
 getFileHash path = withBinaryFile path ReadMode $ \h -> do
-  fileSize <- hFileSize h
-
   allocaBytes SIZEOF_STRUCT_MD5CONTEXT $ \pctxt -> do
     c_MD5Init pctxt