checkClickEvent :: (Float,Float) -> Maybe MenuButtonType
checkClickEvent (x', y') = case button of
                              Nothing -> Nothing
                              Just b  -> Just (buttonType b)
  where isX b = elem x' [(leftMostCoordinate b)..(rightMostCoordinate b)]
        isY b = elem y' [(topMostCoordinate b),((topMostCoordinate b) - 1)..(bottomMostCoordinate b)]
        button = find (\b -> (isX b) && (isY b)) [startButton, restartButton, exitButton]
checkClickEvent :: (Float,Float) -> Maybe MenuButtonType
checkClickEvent (x', y') = case button of
                              Nothing -> Nothing
                              Just b  -> Just (buttonType b)
  where isX b = elem x' [(leftMostCoordinate b)..(rightMostCoordinate b)]
        isY b = elem y' [(topMostCoordinate b),((topMostCoordinate b) - 1)..(bottomMostCoordinate b)]
        button = find (\b -> (isX b) && (isY b)) [startButton, restartButton, exitButton]
checkClickEvent (x', y') = case button of
                              Nothing -> Nothing
                              Just b  -> Just (buttonType b)
  where isX b = elem x' [(leftMostCoordinate b)..(rightMostCoordinate b)]
        isY b = elem y' [(topMostCoordinate b),((topMostCoordinate b) - 1)..(bottomMostCoordinate b)]
        button = find (\b -> (isX b) && (isY b)) [startButton, restartButton, exitButton]