createMenuButtonCheckconservativityOfEdge :: GInfo -> ButtonMenu GA.EdgeValue
createMenuButtonCheckconservativityOfEdge gi =
  Button "Check conservativity"
    (\ (_, EdgeId descr, maybeLEdge) ->
      checkconservativityOfEdge descr gi maybeLEdge)
createMenuButtonCheckconservativityOfEdge :: GInfo -> ButtonMenu GA.EdgeValue
createMenuButtonCheckconservativityOfEdge gi =
  Button "Check conservativity"
    (\ (_, EdgeId descr, maybeLEdge) ->
      checkconservativityOfEdge descr gi maybeLEdge)
createMenuButtonCheckconservativityOfEdge gi =
  Button "Check conservativity"
    (\ (_, EdgeId descr, maybeLEdge) ->
      checkconservativityOfEdge descr gi maybeLEdge)