moveKeyVec :: Key -> Vec
moveKeyVec key = case key of
  Key'Up    -> V2 0 1
  Key'Down  -> V2 0 (-1)
  Key'Left  -> V2 (-1) 0
  Key'Right -> V2 1 0
  _ -> zero
moveKeyVec :: Key -> Vec
moveKeyVec key = case key of
  Key'Up    -> V2 0 1
  Key'Down  -> V2 0 (-1)
  Key'Left  -> V2 (-1) 0
  Key'Right -> V2 1 0
  _ -> zero
moveKeyVec key = case key of
  Key'Up    -> V2 0 1
  Key'Down  -> V2 0 (-1)
  Key'Left  -> V2 (-1) 0
  Key'Right -> V2 1 0
  _ -> zero