158 

   158 

   159 handleCmd_lobby ["BANIP", ip, reason, duration] = do

   159 handleCmd_lobby ["BANIP", ip, reason, duration] = do

   160     cl <- thisClient

   160     cl <- thisClient

   161     return [BanIP ip (readInt_ duration) reason | isAdministrator cl]

   161     return [BanIP ip (readInt_ duration) reason | isAdministrator cl]

   162 

   162 

   163 handleCmd_lobby ["BANLIST"] = do

   167 handleCmd_lobby ["BANLIST"] = do

   164     cl <- thisClient

   168     cl <- thisClient

   165     return [BanList | isAdministrator cl]

   169     return [BanList | isAdministrator cl]

   166 

   170 

   167 

   171