[fix Util.Histogram
John Meacham <john@repetae.net>**20120117100055
 Ignore-this: bdb7ee91afdae493405115d9b9a4f9b3
] hunk ./src/Util/Histogram.hs 1
+{-# OPTIONS -XDeriveDataTypeable #-}
hunk ./src/Util/Histogram.hs 24
+import qualified Data.List as L
hunk ./src/Util/Histogram.hs 33
-
hunk ./src/Util/Histogram.hs 71
-fromList xs = foldr insert empty xs
+fromList xs = L.foldl' (flip insert) empty xs
hunk ./src/Util/Histogram.hs 80
-
-
-