diff options
Diffstat (limited to 'compiler/GHC/Iface/Recomp/Binary.hs')
| -rw-r--r-- | compiler/GHC/Iface/Recomp/Binary.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/Iface/Recomp/Binary.hs b/compiler/GHC/Iface/Recomp/Binary.hs index 8a72a1dcb3..083ad431af 100644 --- a/compiler/GHC/Iface/Recomp/Binary.hs +++ b/compiler/GHC/Iface/Recomp/Binary.hs @@ -35,8 +35,7 @@ computeFingerprint :: (Binary a) computeFingerprint put_nonbinding_name a = do bh <- fmap set_user_data $ openBinMem (3*1024) -- just less than a block put_ bh a - fp <- fingerprintBinMem bh - return fp + fingerprintBinMem bh where set_user_data bh = setUserData bh $ newWriteState put_nonbinding_name putNameLiterally putFS |