import Data.ByteString.Lazy.Char8 (ByteString)
import qualified Data.Sequence as S
import Data.Sequence (Seq)
-import Network
+import Network.Socket
import Network.HTTP.Lucu.Config
import Network.HTTP.Lucu.HttpVersion
import Network.HTTP.Lucu.Request
data Interaction = Interaction {
itrConfig :: Config
- , itrRemoteHost :: HostName
+ , itrRemoteAddr :: SockAddr
, itrResourcePath :: Maybe [String]
, itrRequest :: TVar (Maybe Request)
, itrResponse :: TVar Response
defaultPageContentType = "application/xhtml+xml"
-newInteraction :: Config -> HostName -> Maybe Request -> IO Interaction
-newInteraction conf host req
+newInteraction :: Config -> SockAddr -> Maybe Request -> IO Interaction
+newInteraction conf addr req
= do request <- newTVarIO $ req
responce <- newTVarIO $ Response {
resVersion = HttpVersion 1 1
return $ Interaction {
itrConfig = conf
- , itrRemoteHost = host
+ , itrRemoteAddr = addr
, itrResourcePath = Nothing
, itrRequest = request
, itrResponse = responce