leftMostCoordinate :: MenuButton -> Float
leftMostCoordinate b = middleX - (width / 2)
  where middleX = fst $ location b
        width = fst $ buttonSize b
leftMostCoordinate :: MenuButton -> Float
leftMostCoordinate b = middleX - (width / 2)
  where middleX = fst $ location b
        width = fst $ buttonSize b
leftMostCoordinate b = middleX - (width / 2)
  where middleX = fst $ location b
        width = fst $ buttonSize b