showEdgeWithNames :: Graph -> Edge -> String
showEdgeWithNames g edge@(Edge f t w _) = edgeTemplate (nameAtIndex g f)
                                                       (nameAtIndex g t) w
showEdgeWithNames :: Graph -> Edge -> String
showEdgeWithNames g edge@(Edge f t w _) = edgeTemplate (nameAtIndex g f)
                                                       (nameAtIndex g t) w
showEdgeWithNames g edge@(Edge f t w _) = edgeTemplate (nameAtIndex g f)
                                                       (nameAtIndex g t) w