fix: remove new Monkey additions after rebase

Author: wenkokke

src/Database/LSMTree/Internal/RunAcc.hs

@@ -86,7 +86,6 @@ data RunBloomFilterAlloc =
 instance NFData RunBloomFilterAlloc where
     rnf (RunAllocFixed a)      = rnf a
     rnf (RunAllocRequestFPR a) = rnf a
-    rnf (RunAllocMonkey a)     = rnf a
 
 -- | @'new' nentries@ starts an incremental run construction.
 --

src/Database/LSMTree/Internal/Snapshot/Codec.hs

@@ -421,10 +421,6 @@ instance Encode RunBloomFilterAlloc where
          encodeListLen 2
       <> encodeWord 1
       <> encodeDouble fpr
-  encode (RunAllocMonkey bits) =
-         encodeListLen 2
-      <> encodeWord 2
-      <> encodeWord64 bits
 
 instance DecodeVersioned RunBloomFilterAlloc where
   decodeVersioned V0 = do
@@ -433,7 +429,6 @@ instance DecodeVersioned RunBloomFilterAlloc where
       case (n, tag) of
         (2, 0) -> RunAllocFixed      <$> decodeWord64
         (2, 1) -> RunAllocRequestFPR <$> decodeDouble
-        (2, 2) -> RunAllocMonkey     <$> decodeWord64
         _ -> fail ("[RunBloomFilterAlloc] Unexpected combination of list length and tag: " <> show (n, tag))
 
 -- BloomFilterAlloc

test/Test/Database/LSMTree/Internal/Snapshot/Codec.hs

@@ -356,11 +356,9 @@ instance Arbitrary RunBloomFilterAlloc where
   arbitrary = oneof [
         RunAllocFixed      <$> arbitrary
       , RunAllocRequestFPR <$> arbitrary
-      , RunAllocMonkey     <$> arbitrary
       ]
   shrink (RunAllocFixed x)      = RunAllocFixed <$> shrink x
   shrink (RunAllocRequestFPR x) = RunAllocRequestFPR <$> shrink x
-  shrink (RunAllocMonkey x)     = RunAllocMonkey <$> shrink x
 
 {-------------------------------------------------------------------------------
   Show