gameServer/HWProtoNEState.hs
changeset 10212 5fb3bb2de9d2
parent 10077 ca67740f19b2
child 10460 8dcea9087d75
equal deleted inserted replaced
10211:f4c51ab8f46d 10212:5fb3bb2de9d2
     5 import qualified Data.ByteString.Lazy as BL
     5 import qualified Data.ByteString.Lazy as BL
     6 import qualified Data.ByteString.Char8 as B
     6 import qualified Data.ByteString.Char8 as B
     7 import Data.Digest.Pure.SHA
     7 import Data.Digest.Pure.SHA
     8 --------------------------------------
     8 --------------------------------------
     9 import CoreTypes
     9 import CoreTypes
    10 import Actions
       
    11 import Utils
    10 import Utils
    12 import RoomsAndClients
    11 import RoomsAndClients
       
    12 import HandlerUtils
    13 
    13 
    14 handleCmd_NotEntered :: CmdHandler
    14 handleCmd_NotEntered :: CmdHandler
    15 
    15 
    16 handleCmd_NotEntered ["NICK", newNick] = do
    16 handleCmd_NotEntered ["NICK", newNick] = do
    17     (ci, irnc) <- ask
    17     (ci, irnc) <- ask