@@ -40,6 +40,7 @@ import qualified Data.Text.Encoding as TE
4040import qualified Data.Conduit as C
4141import qualified Data.Conduit.List as CL
4242import Data.Monoid (mempty)
43+import Network.Socket.Internal (SockAddr (SockAddrInet))
4344
4445type Session = ReaderT Application (StateT ClientState IO)
4546
@@ -76,7 +77,7 @@ defaultRequest = Request
7677 , serverPort = 80
7778 , requestHeaders = []
7879 , isSecure = False
79− , remoteHost = error "Network.Wai.Test.defaultRequest{remoteHost}"
80+ , remoteHost = SockAddrInet 0 0
8081 , pathInfo = []
8182 , queryString = []
8283 , requestBody = mempty