Apply f to mempty in modify
commit8444271b70d64bff8f1ad76c6404bfff9110e49c
authorKonstantine Rybnikov <k-bx@k-bx.com>
dateMon 26 Jan 2015, 14:45 (12 years ago)
parentfaa42d5
src/Data/HashMap/Monoidal.hs+1−1
@@ -167,7 +167,7 @@ modify :: (Monoid a, Hashable k, Eq k)
167167 -> k -> MonoidalHashMap k a
168168 -> MonoidalHashMap k a
169169modify f k = pack
170− . M.insertWith (\_ old -> f old) k mempty
170+ . M.insertWith (\_ old -> f old) k (f mempty)
171171 . unpack
172172{-# INLINE modify #-}
173173