equal
deleted
inserted
replaced
78 |
78 |
79 protoNumber2ver :: Word16 -> B.ByteString |
79 protoNumber2ver :: Word16 -> B.ByteString |
80 protoNumber2ver v = Map.findWithDefault "Unknown" v vermap |
80 protoNumber2ver v = Map.findWithDefault "Unknown" v vermap |
81 where |
81 where |
82 vermap = Map.fromList [ |
82 vermap = Map.fromList [ |
83 (17, "0.9.7-dev"), |
83 (17, "0.9.7-dev") |
84 (19, "0.9.7"), |
84 , (19, "0.9.7") |
85 (20, "0.9.8-dev"), |
85 , (20, "0.9.8-dev") |
86 (21, "0.9.8"), |
86 , (21, "0.9.8") |
87 (22, "0.9.9-dev"), |
87 , (22, "0.9.9-dev") |
88 (23, "0.9.9"), |
88 , (23, "0.9.9") |
89 (24, "0.9.10-dev"), |
89 , (24, "0.9.10-dev") |
90 (25, "0.9.10"), |
90 , (25, "0.9.10") |
91 (26, "0.9.11-dev"), |
91 , (26, "0.9.11-dev") |
92 (27, "0.9.11"), |
92 , (27, "0.9.11") |
93 (28, "0.9.12-dev"), |
93 , (28, "0.9.12-dev") |
94 (29, "0.9.12"), |
94 , (29, "0.9.12") |
95 (30, "0.9.13-dev"), |
95 , (30, "0.9.13-dev") |
96 (31, "0.9.13"), |
96 , (31, "0.9.13") |
97 (32, "0.9.14-dev"), |
97 , (32, "0.9.14-dev") |
98 (33, "0.9.14"), |
98 , (33, "0.9.14") |
99 (34, "0.9.15-dev"), |
99 , (34, "0.9.15-dev") |
100 (35, "0.9.14.1"), |
100 , (35, "0.9.14.1") |
101 (37, "0.9.15"), |
101 , (37, "0.9.15") |
102 (38, "0.9.16-dev")] |
102 , (38, "0.9.16-dev") |
|
103 ] |
103 |
104 |
104 askFromConsole :: B.ByteString -> IO B.ByteString |
105 askFromConsole :: B.ByteString -> IO B.ByteString |
105 askFromConsole msg = do |
106 askFromConsole msg = do |
106 B.putStr msg |
107 B.putStr msg |
107 hFlush stdout |
108 hFlush stdout |