on warp-3.2.27-conn-closed-by-pear help sign in
41 lines 1.5 kB history raw
1<html>
2 <head>
3 <title>Haskell WebSockets example</title>
4 <script src="//ajax.googleapis.com/ajax/libs/jquery/1.9.0/jquery.min.js"></script>
5 <script type="text/JavaScript" src="client.js"></script>
6 <link rel="stylesheet" type="text/css" href="screen.css"></script>
7 </head>
8 <body>
9 <h1>Haskell WebSockets example</h1>
10 <div id="main">
11 <div id="warnings">
12 </div>
13 <div id="join-section">
14 <h2>Join</h2>
15 <form id="join-form" action="">
16 <label for="user">Username: </label>
17 <input id="user" type="text" size="12" />
18 <input id="send" type="submit" value="Join" />
19 </form>
20 </div>
21 <div id="users-section" style="display: none">
22 <h2>Users</h2>
23 <ul id="users">
24 </ul>
25 </div>
26 <div id="chat-section" style="display: none">
27 <h2>Chat</h2>
28 <div id="messages">
29 </div>
30 <br />
31 <form id="message-form" action="">
32 <input id="text" type="text" size="40" />
33 <input id="send" type="submit" value="Send" />
34 </form>
35 </div>
36 </div>
37 <div id="footer">
38 Source code available <a href="http://github.com/jaspervdj/websockets/tree/master/example">here</a>
39 </div>
40 </body>
41</html>