Commit a91392d6 authored by Hans-Peter Deifel's avatar Hans-Peter Deifel 🐢
Browse files

Fix hlint warnings

parent daa827a0
......@@ -82,6 +82,6 @@ refineWithStats Proxy encoding = do
part <- stToIO $ Partition.freeze (partition state)
size1Skipped <- stToIO $ readSTRef (size1Count state)
let stats = (AlgoStatistics initialBlocks splitCount initTime refineTime size1Skipped)
let stats = AlgoStatistics initialBlocks splitCount initTime refineTime size1Skipped
return (part, stats)
......@@ -5,8 +5,7 @@ import Test.Hspec
import Data.List.Utils
spec :: Spec
spec = do
deleteLargestMSpec
spec = deleteLargestMSpec
deleteLargestMSpec :: Spec
deleteLargestMSpec = describe "deleteLargestM" $ 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