equal
deleted
inserted
replaced
6 import Data.Word |
6 import Data.Word |
7 import qualified Data.Map as Map |
7 import qualified Data.Map as Map |
8 import qualified Data.IntMap as IntMap |
8 import qualified Data.IntMap as IntMap |
9 import Numeric |
9 import Numeric |
10 import Network.Socket |
10 import Network.Socket |
|
11 import System.IO |
11 import qualified Data.List as List |
12 import qualified Data.List as List |
12 ------------------------------------------------- |
13 ------------------------------------------------- |
13 import qualified Codec.Binary.Base64 as Base64 |
14 import qualified Codec.Binary.Base64 as Base64 |
14 import qualified Codec.Binary.UTF8.String as UTF8 |
15 import qualified Codec.Binary.UTF8.String as UTF8 |
15 import CoreTypes |
16 import CoreTypes |
66 protoNumber2ver 24 = "0.9.10-dev" |
67 protoNumber2ver 24 = "0.9.10-dev" |
67 protoNumber2ver 25 = "0.9.10" |
68 protoNumber2ver 25 = "0.9.10" |
68 protoNumber2ver 26 = "0.9.11-dev" |
69 protoNumber2ver 26 = "0.9.11-dev" |
69 protoNumber2ver _ = "Unknown" |
70 protoNumber2ver _ = "Unknown" |
70 |
71 |
|
72 askFromConsole :: String -> IO String |
|
73 askFromConsole msg = do |
|
74 putStr msg |
|
75 hFlush stdout |
|
76 getLine |