connectedTo :: Index -> Edge -> Bool
connectedTo index edge = (fromIndex edge == index) || (toIndex edge == index)
connectedTo :: Index -> Edge -> Bool
connectedTo index edge = (fromIndex edge == index) || (toIndex edge == index)
connectedTo index edge = (fromIndex edge == index) || (toIndex edge == index)