No longer require largeword < 1.2 to compile on GHC 7.4.1

[rootstock.git] / Util / Foldable.hs

module Util.Foldable where
import Data.Foldable (Foldable, foldMap)
import Data.Monoid (Sum(Sum, getSum))

sumWith :: (Foldable t, Num b) => (a -> b) -> t a -> b
sumWith f = getSum . foldMap (Sum . f)