diff --git a/Database/Persist/TH.hs b/Database/Persist/TH.hs
--- a/Database/Persist/TH.hs
+++ b/Database/Persist/TH.hs
@@ -63,6 +63,7 @@
     , Value (Object), (.:), (.:?)
     , encode, eitherDecodeStrict'
     )
+import qualified Data.ByteString as B
 import qualified Data.ByteString.Lazy as BL
 import Control.Applicative (pure, (<*>))
 import Control.Monad.Logger (MonadLogger)
@@ -938,7 +939,7 @@
 derivePersistFieldJSON :: String -> Q [Dec]
 derivePersistFieldJSON s = do
     ss <- [|SqlString|]
-    tpv <- [|PersistByteString . BL.toStrict . encode|]
+    tpv <- [|PersistByteString . B.concat . BL.toChunks . encode|]
     fpv <- [|\dt v -> do
                 bs' <- fromPersistValue v
                 case eitherDecodeStrict' bs' of
diff --git a/persistent-template.cabal b/persistent-template.cabal
--- a/persistent-template.cabal
+++ b/persistent-template.cabal
@@ -1,5 +1,5 @@
 name:            persistent-template
-version:         1.3.2.1
+version:         1.3.2.2
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>