stats show maximum usage now

src/Copar/Distributed/Stats.hs

@@ -50,6 +50,7 @@ writeDistributedStats statFileName stats = do
 type AccumStat a = [a]
 
 
+
 avg :: (Integral a, Foldable t) => t a -> a
 avg values = sum values `div` fromIntegral (length values)
 
@@ -64,10 +65,11 @@ maxDeviatonFromAvg (sort -> svalues) =
 
 formatAccum :: (Show a, Integral a) => AccumStat a -> String
 formatAccum values =
-  printf "[Average %s (Max derivation %s) || Median %s]\n    computed from %s"
+  printf "[Average %s (Max derivation %s) || Median %s || Maximum %s]\n    computed from %s"
          (show $ avg values)
          (show $ maxDeviatonFromAvg values)
          (show $ med values)
+         (show $ maximum values)
          (show values)