@@ -318,14 +318,13 @@ instance ToField UUID where
318318instance ToField JSON.Value where
319319 toField = toField . JSON.encode
320320
321−-- | Convert a Haskell value to a JSON 'JSON.Value' using
322−-- 'JSON.toJSON' and convert that to a field using 'toField'.
321+-- | Convert a Haskell value to JSON using 'JSON.toEncoding'.
323322--
324323-- This can be used as the default implementation for the 'toField'
325324-- method for Haskell types that have a JSON representation in
326325-- PostgreSQL.
327326toJSONField :: JSON.ToJSON a => a -> Action
328−toJSONField = toField . JSON.toJSON
327+toJSONField = toField . JSON.encode
329328
330329-- | Surround a string with single-quote characters: \"@'@\"
331330--