procKeyUp :: Key -> Msg
procKeyUp k =
  if isMoveKey k
  then SubMove (moveKeyVec k)
  else Noop
procKeyUp :: Key -> Msg
procKeyUp k =
  if isMoveKey k
  then SubMove (moveKeyVec k)
  else Noop
procKeyUp k =
  if isMoveKey k
  then SubMove (moveKeyVec k)
  else Noop