|
10898
|
1 |
module Main where
|
|
|
2 |
|
|
|
3 |
import Text.PrettyPrint.HughesPJ
|
|
10900
|
4 |
import Data.Tree
|
|
10898
|
5 |
|
|
|
6 |
data HWProtocol = Command String [CmdParam]
|
|
|
7 |
data CmdParam = Skip
|
|
|
8 |
| SS
|
|
|
9 |
| LS
|
|
|
10 |
| IntP
|
|
|
11 |
| Many [CmdParam]
|
|
|
12 |
data ClientStates = NotConnected
|
|
|
13 |
| JustConnected
|
|
|
14 |
| ServerAuth
|
|
|
15 |
| Lobby
|
|
|
16 |
|
|
|
17 |
cmd = Command
|
|
|
18 |
cmd1 s p = Command s [p]
|
|
|
19 |
cmd2 s p1 p2 = Command s [p1, p2]
|
|
|
20 |
|
|
|
21 |
commands = [
|
|
|
22 |
cmd "CONNECTED" [Skip, IntP]
|
|
|
23 |
, cmd1 "NICK" SS
|
|
|
24 |
, cmd1 "PROTO" IntP
|
|
|
25 |
, cmd1 "ASKPASSWORD" SS
|
|
|
26 |
, cmd1 "SERVER_AUTH" SS
|
|
|
27 |
, cmd1 "LOBBY:JOINED" $ Many [SS]
|
|
|
28 |
]
|
|
|
29 |
|
|
10900
|
30 |
pas =
|
|
|
31 |
|
|
|
32 |
main = putStrLn $ render pas
|