@@ -13,6 +13,7 @@ implement a simple multi-user chat program.
1313> import qualified Data.Text.IO as T
1414
1515> import qualified Network.WebSockets as WS
16+> import qualified Network.Wai
1617> import qualified Network.Wai.Handler.Warp as Warp
1718> import qualified Network.Wai.Handler.WebSockets as WaiWS
1819> import qualified Network.Wai.Application.Static as Static
@@ -75,10 +76,12 @@ actual server. For this purpose, we use the simple server provided by
7576> , Warp.settingsIntercept = WaiWS.intercept (webSocketsApp state)
7677> } staticApp
7778
79+> staticApp :: Network.Wai.Application
7880> staticApp = Static.staticApp Static.defaultFileServerSettings
7981> { Static.ssFolder = Static.embeddedLookup $ Static.toEmbedded $(embedDir "static")
8082> }
8183
84+> webSocketsApp :: MVar ServerState -> WS.WebSockets ()
8285> webSocketsApp state = do
8386
8487When a client connects, we first obtain the request. Once we have that, we use