fix label for "has large k/op"

For example, before:

      prop_WriteNumEntries: OK (2.29s)
        +++ OK, passed 100 tests:
        96% has large k/op
         4% no large k/op

But now we see the actual numbers:

      prop_WriteNumEntries: OK (2.37s)
        +++ OK, passed 100 tests:
        52% has large k/op
        48% no large k/op

However, that should still be good enough.

Author: mheinzel

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

@@ -184,14 +184,15 @@ simplePaths ns = fmap simplePath ns
   QuickCheck
 -------------------------------------------------------------------------------}
 
+{- HLINT ignore "Hoist not" -}
 labelRunData :: SerialisedRunData -> Property -> Property
 labelRunData (RunData m) = tabulate "value size" size . label note
   where
     kops = Map.toList m
     size = map (showPowersOf10 . sizeofValue) vals
     vals = concatMap (bifoldMap pure mempty . snd) kops
     note
-      | any (uncurry entryWouldFitInPage) kops = "has large k/op"
+      | any (not . uncurry entryWouldFitInPage) kops = "has large k/op"
       | otherwise = "no large k/op"
 
 instance ( Ord k, Arbitrary k, Arbitrary v, Arbitrary b

test/Test/Database/LSMTree/Internal/Merge.hs

@@ -111,7 +111,7 @@ prop_MergeDistributes fs hbio mergeType stepSize (SmallList rds) =
     rds' = fmap serialiseRunData rds
     kops = foldMap (Map.toList . unRunData) rds'
     vals = concatMap (bifoldMap pure mempty . snd) kops
-    isLarge = uncurry entryWouldFitInPage
+    isLarge = not . uncurry entryWouldFitInPage
 
     getRunContent run@(DeRef Run.Run {
                          Run.runFilter,