@@ -1,6 +1,7 @@
11{-# LANGUAGE CPP #-}
22{-# LANGUAGE DeriveDataTypeable #-}
33{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE DeriveFunctor #-}
45{-# LANGUAGE GeneralizedNewtypeDeriving #-}
56{-# LANGUAGE MultiParamTypeClasses #-}
67{-# LANGUAGE OverloadedStrings #-}
@@ -43,15 +44,17 @@ data ServantError =
4344 | ConnectionError Text
4445 deriving (Eq, Show, Generic, Typeable)
4546
46−data Request = Request
47− { requestPath :: Builder.Builder
47+data RequestF a = Request
48+ { requestPath :: a
4849 , requestQueryString :: Seq.Seq QueryItem
4950 , requestBody :: Maybe (RequestBody, MediaType)
5051 , requestAccept :: Seq.Seq MediaType
5152 , requestHeaders :: Seq.Seq Header
5253 , requestHttpVersion :: HttpVersion
5354 , requestMethod :: Method
54− } deriving (Generic, Typeable)
55+ } deriving (Eq, Show, Functor, Generic, Typeable)
56+
57+type Request = RequestF Builder.Builder
5558
5659-- | The request body. Currently only lazy ByteStrings are supported.
5760newtype RequestBody = RequestBodyLBS LBS.ByteString