@@ -143,7 +143,7 @@ instance FromField HStoreList where
143newtype HStoreMap = HStoreMap (Map Text Text) deriving (Eq, Ord, Typeable, Show)
143newtype HStoreMap = HStoreMap (Map Text Text) deriving (Eq, Ord, Typeable, Show)
145instance ToHStore HStoreMap where
145instance ToHStore HStoreMap where
146− toHStore (HStoreMap xs) = Map.foldWithKey f mempty xs
146+ toHStore (HStoreMap xs) = Map.foldrWithKey f mempty xs
147 where f k v xs = hstore k v `mappend` xs
147 where f k v xs = hstore k v `mappend` xs
149instance ToField HStoreMap where
149instance ToField HStoreMap where