update :: KeyboardState -> [Shape] -> [P.Platform] -> Player -> Player
update kS rects mp p = snd $ runState (updateS kS rects mp) p
update :: KeyboardState -> [Shape] -> [P.Platform] -> Player -> Player
update kS rects mp p = snd $ runState (updateS kS rects mp) p
update kS rects mp p = snd $ runState (updateS kS rects mp) p