diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,8 @@
+## Req 3.6.0
+
+* Added the `httpConfigBodyPreviewLength` configuration parameter to
+  `HttpConfig`.
+
 ## Req 3.5.0
 
 * Made `Req` an instance of `MonadUnliftIO`. [Issue
diff --git a/Network/HTTP/Req.hs b/Network/HTTP/Req.hs
--- a/Network/HTTP/Req.hs
+++ b/Network/HTTP/Req.hs
@@ -491,7 +491,7 @@
                     (const openResponse)
                 )
             )
-        (preview, r') <- grabPreview bodyPreviewLength r
+        (preview, r') <- grabPreview httpConfigBodyPreviewLength r
         mapM_ LI.throwHttp (httpConfigCheckResponse request r' preview)
         consume r'
     )
@@ -671,7 +671,11 @@
     -- retry requests that resulted in an exception.
     --
     -- @since 3.4.0
-    httpConfigRetryJudgeException :: RetryStatus -> SomeException -> Bool
+    httpConfigRetryJudgeException :: RetryStatus -> SomeException -> Bool,
+    -- | Max length of preview fragment of response body.
+    --
+    -- @since 3.6.0
+    httpConfigBodyPreviewLength :: forall a. Num a => a
   }
   deriving (Typeable)
 
@@ -698,7 +702,8 @@
                    598, -- (Informal convention) Network read timeout error
                    599 -- (Informal convention) Network connect timeout error
                  ],
-      httpConfigRetryJudgeException = \_ _ -> False
+      httpConfigRetryJudgeException = \_ _ -> False,
+      httpConfigBodyPreviewLength = 1024
     }
   where
     statusCode = Y.statusCode . L.responseStatus
@@ -1843,10 +1848,3 @@
   | -- | HTTPS
     Https
   deriving (Eq, Ord, Show, Data, Typeable, Generic, TH.Lift)
-
-----------------------------------------------------------------------------
--- Constants
-
--- | Max length of preview fragment of response body.
-bodyPreviewLength :: Num a => a
-bodyPreviewLength = 1024
diff --git a/pure-tests/Network/HTTP/ReqSpec.hs b/pure-tests/Network/HTTP/ReqSpec.hs
--- a/pure-tests/Network/HTTP/ReqSpec.hs
+++ b/pure-tests/Network/HTTP/ReqSpec.hs
@@ -427,6 +427,7 @@
         httpConfigRetryPolicy = retryPolicyDefault
         httpConfigRetryJudge _ _ = False
         httpConfigRetryJudgeException _ _ = False
+        httpConfigBodyPreviewLength = 1024
     return HttpConfig {..}
 
 instance Show HttpConfig where
diff --git a/req.cabal b/req.cabal
--- a/req.cabal
+++ b/req.cabal
@@ -1,11 +1,11 @@
 cabal-version:   1.18
 name:            req
-version:         3.5.0
+version:         3.6.0
 license:         BSD3
 license-file:    LICENSE.md
 maintainer:      Mark Karpov <markkarpov92@gmail.com>
 author:          Mark Karpov <markkarpov92@gmail.com>
-tested-with:     ghc ==8.6.5 ghc ==8.8.3 ghc ==8.10.1
+tested-with:     ghc ==8.6.5 ghc ==8.8.4 ghc ==8.10.1
 homepage:        https://github.com/mrkkrp/req
 bug-reports:     https://github.com/mrkkrp/req/issues
 synopsis: