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

Fix hlint warnings

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