Commit daa827a0 authored by Hans-Peter Deifel's avatar Hans-Peter Deifel 🐢

bench: Fix a few hlint warnings

parent c2a7d1ef
......@@ -24,12 +24,12 @@ spec = do
emptySpec :: Spec
emptySpec = describe "empty" $ do
it "creates an empty queue" $
property $ \sizes -> runST $ (empty sizes) >>= null
property $ \sizes -> runST $ empty sizes >>= null
it "creates a queue where no block is present" $ do
it "creates a queue where no block is present" $
property $ \size -> runST $ do
q <- empty size
all not <$> mapM (\b -> (Block b) `elem` q) [0..size-1]
all not <$> mapM (\b -> Block b `elem` q) [0..size-1]
enqueueSpec :: Spec
enqueueSpec = describe "enqueue" $ do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment