Fix hlint warnings

a91392d6 · Hans-Peter Deifel · daa827a0 · a91392d6 · a91392d6
Commit a91392d6 authored Dec 22, 2018 by Hans-Peter Deifel 🐢
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 3 deletions

src/Copar/Algorithm.hs src/Copar/Algorithm.hs +1 -1

tests/Data/List/UtilsSpec.hs tests/Data/List/UtilsSpec.hs +1 -2

No files found.
--- a/src/Copar/Algorithm.hs
+++ b/src/Copar/Algorithm.hs
@@ -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)
--- a/tests/Data/List/UtilsSpec.hs
+++ b/tests/Data/List/UtilsSpec.hs
@@ -5,8 +5,7 @@ import Test.Hspec
 import Data.List.Utils

 spec :: Spec
-spec = do
-  deleteLargestMSpec
+spec = deleteLargestMSpec

 deleteLargestMSpec :: Spec
 deleteLargestMSpec = describe "deleteLargestM" $ do