playerStateP = playerify <$> ("Player " *> playerP) <*> (" starting position: " *> decimal)
where playerify name pos = (name, PlayerState {position = pos, score = 0})
playerStateP = playerify <$> ("Player " *> playerP) <*> (" starting position: " *> decimal)
where playerify name pos = (name, PlayerState {position = pos, score = 0})