gameServer/NetRoutines.hs
changeset 11860 ad435d95ca4b
parent 11561 af9aa8d5863c
--- a/gameServer/NetRoutines.hs	Sat Oct 01 20:56:42 2016 +0300
+++ b/gameServer/NetRoutines.hs	Sat Oct 01 21:27:05 2016 +0300
@@ -25,11 +25,8 @@
 import Control.Monad
 import Data.Unique
 import qualified Codec.Binary.Base64 as Base64
-import qualified Data.ByteString as BW
-import qualified Data.ByteString.Char8 as B
 import qualified Control.Exception as E
 import System.Entropy
-import Data.Either
 -----------------------------
 import CoreTypes
 import Utils
@@ -48,7 +45,7 @@
         sendChan' <- newChan
 
         uid <- newUnique
-        salt <- liftM (B.pack . Base64.encode . BW.unpack) $ hGetEntropy ch 18
+        salt <- liftM Base64.encode $ hGetEntropy ch 18
 
         let newClient =
                 (ClientInfo