Fix 32/64-bit bug.

1 files changed, 5 insertions, 1 deletions

diff --git a/lib/KeyDB.hs b/lib/KeyDB.hs
index c92f614..fd0a9ce 100644
--- a/lib/KeyDB.hs
+++ b/lib/KeyDB.hs
@@ -71,7 +71,11 @@ newtype KeyGrip = KeyInt Int
 
 fingerprintGrip :: Fingerprint -> KeyGrip
 fingerprintGrip (Fingerprint bs) =
-    case decode $ L.fromStrict $ S.drop (S.length bs - sizeOf (0::Int)) bs of
+    -- case decode $ L.fromStrict $ S.drop (S.length bs - sizeOf (0::Int)) bs of
+    -- -- The above was removed because Int is encoded as 8 bytes even when we are
+    -- -- using 32-bit GHC.
+    -- Presumably, the extra 4 bytes will be truncated.
+    case decode $ L.fromStrict $ S.drop (S.length bs - 8) bs of
         i -> KeyInt i
 
 smallprGrip :: String -> Maybe KeyGrip