432     return [SaveRoom fileName]

   432     return [SaveRoom fileName]

   433 

   433 

   434 handleCmd_inRoom ["LOADROOM", fileName] = serverAdminOnly $ do

   434 handleCmd_inRoom ["LOADROOM", fileName] = serverAdminOnly $ do

   435     return [LoadRoom fileName]

   435     return [LoadRoom fileName]

   436 

   436 

   438 handleCmd_inRoom ["LIST"] = return [] -- for old clients (<= 0.9.17)

   437 handleCmd_inRoom ["LIST"] = return [] -- for old clients (<= 0.9.17)

   439 

   438 

   440 handleCmd_inRoom (s:_) = return [ProtocolError $ "Incorrect command '" `B.append` s `B.append` "' (state: in room)"]

   439 handleCmd_inRoom (s:_) = return [ProtocolError $ "Incorrect command '" `B.append` s `B.append` "' (state: in room)"]

   441 

   440 

   442 handleCmd_inRoom [] = return [ProtocolError "Empty command (state: in room)"]

   441 handleCmd_inRoom [] = return [ProtocolError "Empty command (state: in room)"]