createEdgeMenuConsEdge :: GInfo -> LocalMenu GA.EdgeValue
createEdgeMenuConsEdge gi = LocalMenu $ Menu Nothing
  [ createMenuButtonShowEdgeInfo gi
  , createMenuButtonCheckconservativityOfEdge gi]
createEdgeMenuConsEdge :: GInfo -> LocalMenu GA.EdgeValue
createEdgeMenuConsEdge gi = LocalMenu $ Menu Nothing
  [ createMenuButtonShowEdgeInfo gi
  , createMenuButtonCheckconservativityOfEdge gi]
createEdgeMenuConsEdge gi = LocalMenu $ Menu Nothing
  [ createMenuButtonShowEdgeInfo gi
  , createMenuButtonCheckconservativityOfEdge gi]