Move player logic to own module Player.hs