diff --git a/build/Stats.hs b/build/Stats.hs index b0b4f50..8268412 100644 --- a/build/Stats.hs +++ b/build/Stats.hs @@ -467,8 +467,8 @@ renderDistribution wcs = bucketOf w | w < 500 = 0 | w < 1000 = 1 | w < 2000 = 2 | w < 5000 = 3 | otherwise = 4 labels = ["< 500", "500 \x2013 1k", "1k \x2013 2k", "2k \x2013 5k", "\x2265 5k"] - counts = foldr (\w acc -> Map.insertWith (+) (bucketOf w) 1 acc) - (Map.fromList [(i,0) | i <- [0..4]]) wcs + counts = foldr (\w acc -> Map.insertWith (+) (bucketOf w) (1 :: Int) acc) + (Map.fromList [(i, 0 :: Int) | i <- [0..4]]) wcs buckets = [(labels !! i, fromMaybe 0 (Map.lookup i counts)) | i <- [0..4]] maxCount = max 1 (maximum (map snd buckets)) bar (lbl, n) = diff --git a/cabal.project.freeze b/cabal.project.freeze index c77b9fb..7ed9858 100644 --- a/cabal.project.freeze +++ b/cabal.project.freeze @@ -128,7 +128,7 @@ constraints: any.Glob ==0.10.2, any.network-control ==0.1.3, any.network-uri ==2.6.4.2, any.old-locale ==1.0.0.7, - any.old-time ==1.1.0.4, + any.old-time ==1.1.0.5, any.optparse-applicative ==0.18.1.0, any.ordered-containers ==0.2.4, any.os-string ==2.0.10,