decrementIfHigherIndex :: Index -> Edge -> Edge
decrementIfHigherIndex i edge@(Edge from to weight attrs) =
        Edge (decIfHigher from) (decIfHigher to) weight attrs
    where decIfHigher j = if j > i then j-1 else j

--------------------------------------------
decrementIfHigherIndex :: Index -> Edge -> Edge
decrementIfHigherIndex i edge@(Edge from to weight attrs) =
        Edge (decIfHigher from) (decIfHigher to) weight attrs
    where decIfHigher j = if j > i then j-1 else j

--------------------------------------------
decrementIfHigherIndex i edge@(Edge from to weight attrs) =
        Edge (decIfHigher from) (decIfHigher to) weight attrs
    where decIfHigher j = if j > i then j-1 else j

--------------------------------------------