updatePlayer :: ClientKey -> PlayerS () -> WorldS ()
updatePlayer key comp = getPlayer key >>= \plyM -> case plyM of
  Nothing  -> return ()
  Just ply -> players %= Map.insert (ply ^. pClientKey) (execState comp ply)
updatePlayer :: ClientKey -> PlayerS () -> WorldS ()
updatePlayer key comp = getPlayer key >>= \plyM -> case plyM of
  Nothing  -> return ()
  Just ply -> players %= Map.insert (ply ^. pClientKey) (execState comp ply)
updatePlayer key comp = getPlayer key >>= \plyM -> case plyM of
  Nothing  -> return ()
  Just ply -> players %= Map.insert (ply ^. pClientKey) (execState comp ply)