Remove BiasedKeyForIndexCompact

It has been replaced by `TestKey`

Author: jorisdral

src-extras/Database/LSMTree/Extras/Generators.hs

@@ -37,7 +37,6 @@ module Database.LSMTree.Extras.Generators (
   , isKeyForIndexCompact
   , KeyForIndexCompact (..)
   , BiasedKey (..)
-  , BiasedKeyForIndexCompact (..)
     -- * helpers
   , shrinkVec
   ) where
@@ -597,22 +596,6 @@ instance Arbitrary BiasedKey where
 
 deriving newtype instance SerialiseKey BiasedKey
 
-newtype BiasedKeyForIndexCompact =
-    BiasedKeyForIndexCompact { getBiasedKeyForIndexCompact :: RawBytes }
-  deriving stock (Eq, Ord, Show)
-  deriving newtype NFData
-
-instance Arbitrary BiasedKeyForIndexCompact where
-  arbitrary = arbitraryBiasedKey BiasedKeyForIndexCompact genKeyForIndexCompact
-
-  shrink (BiasedKeyForIndexCompact rb) =
-      [ BiasedKeyForIndexCompact rb'
-      | rb' <- shrink rb
-      , isKeyForIndexCompact rb'
-      ]
-
-deriving newtype instance SerialiseKey BiasedKeyForIndexCompact
-
 {-------------------------------------------------------------------------------
   Unsliced
 -------------------------------------------------------------------------------}

test/Test/Database/LSMTree/Generators.hs

@@ -66,19 +66,10 @@ tests = testGroup "Test.Database.LSMTree.Generators" [
     , testGroup "KeyForIndexCompact" $
         prop_arbitraryAndShrinkPreserveInvariant noTags $
           isKeyForIndexCompact . getKeyForIndexCompact
-    , testGroup "BiasedKeyForIndexCompact" $
-        prop_arbitraryAndShrinkPreserveInvariant noTags $
-          isKeyForIndexCompact . getBiasedKeyForIndexCompact
-    , testGroup "lists of key/op pairs" $
-        [ testGroup "BiasedKey" $
-            prop_arbitraryAndShrinkPreserveInvariant
-              (labelTestKOps @BiasedKey)
-              deepseqInvariant
-        , testGroup "BiasedKeyForIndexCompact" $
-            prop_arbitraryAndShrinkPreserveInvariant
-              (labelTestKOps @BiasedKeyForIndexCompact)
-              deepseqInvariant
-        ]
+    , testGroup "BiasedKey" $
+          prop_arbitraryAndShrinkPreserveInvariant
+            (labelTestKOps @BiasedKey)
+            deepseqInvariant
     , testGroup "helpers"
         [ testProperty "prop_shrinkVec" $ \vec ->
             shrinkVec (QC.shrink @Int) vec === map VP.fromList (QC.shrink (VP.toList vec))