Update persistent/Database/Persist/Class/PersistEntity.hs

Co-authored-by: Matt Parsons <[email protected]>
yesodweb · Jul 13, 2024 · cb292f1 · cb292f1
1 parent 078d80a
commit cb292f1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/persistent/Database/Persist/Class/PersistEntity.hs b/persistent/Database/Persist/Class/PersistEntity.hs
@@ -451,7 +451,7 @@ idField = "_id"
 --   toPersistValue = toPersistValueJSON
 -- @
 toPersistValueJSON :: ToJSON a => a -> PersistValue
-toPersistValueJSON = PersistByteString . B.toStrict . encodingToLazyByteString . toEncoding
+toPersistValueJSON = PersistText . LT.toStrict . encodeToLazyText
 
 -- | Convenience function for getting a free 'PersistField' instance
 -- from a type with JSON instances. The JSON parser used will accept JSON