createMenuValueTitleShowConservativity :: ValueTitle GA.EdgeValue
createMenuValueTitleShowConservativity = ValueTitle
  (\ (_, _, maybeLEdge) -> return $ case maybeLEdge of
    Just (_, _, edgelab) -> showConsStatus $ getEdgeConsStatus edgelab
    Nothing -> "")
createMenuValueTitleShowConservativity :: ValueTitle GA.EdgeValue
createMenuValueTitleShowConservativity = ValueTitle
  (\ (_, _, maybeLEdge) -> return $ case maybeLEdge of
    Just (_, _, edgelab) -> showConsStatus $ getEdgeConsStatus edgelab
    Nothing -> "")
createMenuValueTitleShowConservativity = ValueTitle
  (\ (_, _, maybeLEdge) -> return $ case maybeLEdge of
    Just (_, _, edgelab) -> showConsStatus $ getEdgeConsStatus edgelab
    Nothing -> "")