summaryrefslogtreecommitdiff
path: root/Statistics/Sample/Histogram.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Statistics/Sample/Histogram.hs')
-rw-r--r--Statistics/Sample/Histogram.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Statistics/Sample/Histogram.hs b/Statistics/Sample/Histogram.hs
index 7579286..96e9efd 100644
--- a/Statistics/Sample/Histogram.hs
+++ b/Statistics/Sample/Histogram.hs
@@ -73,7 +73,7 @@ histogram_ numBins lo hi xs0 = G.create (GM.replicate numBins 0 >>= bin xs0)
b = truncate $ (x - lo) / d
write' bins b . (+1) =<< GM.read bins b
go (i+1)
- write' bins b !e = GM.write bins b e
+ write' bins' b !e = GM.write bins' b e
len = G.length xs
d = ((hi - lo) * (1 + realToFrac m_epsilon)) / fromIntegral numBins
{-# INLINE histogram_ #-}