procKeyDown :: Key -> Msg
procKeyDown k =
  if isMoveKey k
  then AddMove (moveKeyVec k)
  else case k of
    Key'Space -> Fire
    _ -> Noop
procKeyDown :: Key -> Msg
procKeyDown k =
  if isMoveKey k
  then AddMove (moveKeyVec k)
  else case k of
    Key'Space -> Fire
    _ -> Noop
procKeyDown k =
  if isMoveKey k
  then AddMove (moveKeyVec k)
  else case k of
    Key'Space -> Fire
    _ -> Noop