Extract Iteratee (processing) chain to its own module.
TCPPayload = (TCP, Payload)
TCPConversation = [TCPPayload]
type Request = (RequestPayload, ResponsePayload)
type HTTPTaggedRequest = (HTTPRequestType, RequestPayload, ResponsePayload)
type HTTPURIRequest = (HTTPRequestType, URI, RequestPayload, ResponsePayload)
type ChanneledRequest = (HTTPRequestType, URI, RequestPayload, RequestPayload, ResponsePayload, ResponsePayload)
Final aux type.
I lied.
Formating, layout.
Reorder types for better readability.
Sorting is hard.
hlint.