diff --git a/src/Copar/Algorithm.hs b/src/Copar/Algorithm.hs
index 5a2758b1e354ea76e3f2d7d6a06aae1b77a8810e..2f3f9ca07a4cfdb3a3ef189043f384f0b10ff0d3 100644
--- 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)
diff --git a/tests/Data/List/UtilsSpec.hs b/tests/Data/List/UtilsSpec.hs
index 99c2305a62f0fcb0499709267d17188905b938bd..41193d15cfe6eb1875b383770bbbc40c8129c788 100644
--- 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