Make some sections more readable

adetokunbo · Jan 9, 2024 · 2be4836 · 2be4836
1 parent 89c3354
commit 2be4836
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/test/MemInfo/ProcSpec.hs b/test/MemInfo/ProcSpec.hs
@@ -133,8 +133,8 @@ statmShared rss shared = "0 " +| toInteger rss |+ " " +| toInteger shared |+ " 1
 
 genSharedStatm :: Gen (PerProc, Text)
 genSharedStatm = do
- sharedKb <- genValid `suchThat` (>) 1
- rssKb <- genValid `suchThat` (<) sharedKb
+ sharedKb <- genValid `suchThat` (> 1)
+ rssKb <- genValid `suchThat` (> sharedKb)
  let content = statmShared rssKb sharedKb
  pp =
  ppZero