| changeset 10078 | 8572d1f8b2f0 |
| parent 10076 | b235e520ea21 |
| child 10093 | ada172d33988 |
| 10077:ca67740f19b2 | 10078:8572d1f8b2f0 |
|---|---|
28 currentTime <- getCurrentTime |
28 currentTime <- getCurrentTime |
29 |
29 |
30 sendChan' <- newChan |
30 sendChan' <- newChan |
31 |
31 |
32 uid <- newUnique |
32 uid <- newUnique |
33 salt <- liftM (B.pack . Base64.encode . BW.unpack) $ hGetEntropy ch 16 |
33 salt <- liftM (B.pack . Base64.encode . BW.unpack) $ hGetEntropy ch 18 |
34 |
34 |
35 let newClient = |
35 let newClient = |
36 (ClientInfo |
36 (ClientInfo |
37 uid |
37 uid |
38 sendChan' |
38 sendChan' |