andleMessage state h channel "missileReady" missilesJson = do
  let missile = fromOk $ GJ.fromJSON missilesJson :: Missile  
  logMissilesReady missile
  return (State (boardHistory state) (commandHistory state) (missile : (missiles state)) (launchedMissiles state))


handleMessage state h channel "missileReady" missilesJson = do
  let missile = fromOk $ GJ.fromJSON missilesJson :: Missile  
  logMissilesReady missile
  return (State (boardHistory state) (commandHistory state) (missile : (missiles state)) (launchedMissiles state))
handleMessage state h channel "missileReady" missilesJson = do
  let missile = fromOk $ GJ.fromJSON missilesJson :: Missile  
  logMissilesReady missile
  return (State (boardHistory state) (commandHistory state) (missile : (missiles state)) (launchedMissiles state))