equal
deleted
inserted
replaced
8 import Data.Time |
8 import Data.Time |
9 import Control.Monad |
9 import Control.Monad |
10 ----------------------------- |
10 ----------------------------- |
11 import CoreTypes |
11 import CoreTypes |
12 import Utils |
12 import Utils |
|
13 import RoomsAndClients |
13 |
14 |
14 acceptLoop :: Socket -> Chan CoreMessage -> IO () |
15 acceptLoop :: Socket -> Chan CoreMessage -> IO () |
15 acceptLoop servSock chan = forever $ do |
16 acceptLoop servSock chan = forever $ do |
16 Exception.handle |
17 Exception.handle |
17 (\(_ :: Exception.IOException) -> putStrLn "exception on connect") $ |
18 (\(_ :: Exception.IOException) -> putStrLn "exception on connect") $ |
32 currentTime |
33 currentTime |
33 "" |
34 "" |
34 "" |
35 "" |
35 False |
36 False |
36 0 |
37 0 |
37 0 |
38 lobbyId |
38 0 |
39 0 |
39 False |
40 False |
40 False |
41 False |
41 False |
42 False |
42 undefined |
43 undefined |