Fix use of deprecated identifier
commit6769ce24892255c88e63126287440ab40e158d61
authorLeon P Smith <leon@melding-monads.com>
dateFri 7 Jun 2013, 23:37 (13 years ago)
parent55d5da7
src/Database/PostgreSQL/Simple/HStore/Implementation.hs+1−1
@@ -143,7 +143,7 @@ instance FromField HStoreList where
143143newtype HStoreMap = HStoreMap (Map Text Text) deriving (Eq, Ord, Typeable, Show)
144144
145145instance ToHStore HStoreMap where
146− toHStore (HStoreMap xs) = Map.foldWithKey f mempty xs
146+ toHStore (HStoreMap xs) = Map.foldrWithKey f mempty xs
147147 where f k v xs = hstore k v `mappend` xs
148148
149149instance ToField HStoreMap where