import Control.Applicative
import Control.Concurrent.STM
import Data.Ascii (Ascii)
-import qualified Data.ByteString as Strict
+import Data.ByteString (ByteString)
import Data.Monoid.Unicode
import Data.Sequence (Seq)
import Data.Time
import Network.HTTP.Lucu.Preprocess
import Network.HTTP.Lucu.Request
import Network.HTTP.Lucu.Response
+import Network.HTTP.Lucu.Utils
#if defined(HAVE_SSL)
import OpenSSL.X509
#endif
, niRemoteCert ∷ !(Maybe X509)
#endif
, niRequest ∷ !Request
- , niResourcePath ∷ ![Strict.ByteString]
+ , niResourcePath ∷ !PathSegments
, niExpectedContinue ∷ !Bool
, niReqBodyLength ∷ !(Maybe RequestBodyLength)
, niReceiveBodyReq ∷ !(TMVar ReceiveBodyRequest)
- , niReceivedBody ∷ !(TMVar Strict.ByteString)
+ , niReceivedBody ∷ !(TMVar ByteString)
, niResponse ∷ !(TVar Response)
, niSendContinue ∷ !(TMVar Bool)
→ Maybe X509
#endif
→ AugmentedRequest
- → [Strict.ByteString]
+ → PathSegments
→ IO NormalInteraction
#if defined(HAVE_SSL)
mkNormalInteraction config remoteAddr remoteCert (AugmentedRequest {..}) rsrcPath