13 lines
449 B
Plaintext
13 lines
449 B
Plaintext
$OpenBSD: patch-Bustle_Stats_hs,v 1.1 2012/09/02 22:12:36 kili Exp $
|
|
--- Bustle/Stats.hs.orig Fri Oct 29 01:06:58 2010
|
|
+++ Bustle/Stats.hs Fri Jul 13 21:50:24 2012
|
|
@@ -36,7 +36,7 @@ frequencies = reverse
|
|
where alt Nothing = Just 1
|
|
alt (Just n) = Just (n + 1)
|
|
|
|
-mean :: Fractional a => [a] -> a
|
|
+mean :: (Eq a, Fractional a) => [a] -> a
|
|
mean = acc 0 0
|
|
where acc 0 _ [] = error "mean of empty list"
|
|
acc n t [] = t / n
|