removeEdgeByNames :: String -> String -> Graph -> Graph
removeEdgeByNames f t g = Graph (nodes g)
                            (filter (/= (qedge (whereIs f) (whereIs t) 1)) (edges g))
    where whereIs s = getIndex s g
removeEdgeByNames :: String -> String -> Graph -> Graph
removeEdgeByNames f t g = Graph (nodes g)
                            (filter (/= (qedge (whereIs f) (whereIs t) 1)) (edges g))
    where whereIs s = getIndex s g
removeEdgeByNames f t g = Graph (nodes g)
                            (filter (/= (qedge (whereIs f) (whereIs t) 1)) (edges g))
    where whereIs s = getIndex s g