@@ -235,7 +235,7 @@ instance (ToField a) => ToField (Vector a) where
235 -- that the use of type-specific separator characters is unnecessary.
235 -- that the use of type-specific separator characters is unnecessary.
237instance ToField UUID where
237instance ToField UUID where
238− toField = toField . UUID.toASCIIBytes
238+ toField = Plain . inQuotes . fromByteString . UUID.toASCIIBytes
240instance ToField JSON.Value where
240instance ToField JSON.Value where
241 toField = toField . JSON.encode
241 toField = toField . JSON.encode