@@ -75,17 +75,27 @@ instance NFData ServantError where
7575 rnf (InvalidContentTypeHeader res) = rnf res
7676 rnf (ConnectionError err) = rnf err
7777
78−data RequestF a = Request
79− { requestPath :: a
78+data RequestF body path = Request
79+ { requestPath :: path
8080 , requestQueryString :: Seq.Seq QueryItem
81− , requestBody :: Maybe (RequestBody, MediaType)
81+ , requestBody :: Maybe (body, MediaType)
8282 , requestAccept :: Seq.Seq MediaType
8383 , requestHeaders :: Seq.Seq Header
8484 , requestHttpVersion :: HttpVersion
8585 , requestMethod :: Method
8686 } deriving (Generic, Typeable)
8787
88−type Request = RequestF Builder.Builder
88+instance (NFData path, NFData body) => NFData (Request body path) where
89+ rnf r =
90+ rnf (requestPath r)
91+ `seq` rnf (requestQueryString r)
92+ `seq` rnf (requestBody r)
93+ `seq` rnf (requestAccept r)
94+ `seq` rnf (requestHeaders r)
95+ `seq` rnf (requestHttpVersion r)
96+ `seq` rnf (requestMethod r)
97+
98+type Request = RequestF RequestBody Builder.Builder
8999
90100-- | The request body. A replica of the @http-client@ @RequestBody@.
91101data RequestBody