velocity :: E.Entity -> V.Vect
velocity E.Player   {E.playerVelocity   = v        } = v
velocity :: E.Entity -> V.Vect
velocity E.Player   {E.playerVelocity   = v        } = v
velocity E.Player   {E.playerVelocity   = v        } = v