edgeTemplate :: Show a => a -> a -> Weight -> String
edgeTemplate f t w = "    <Edge from=" ++ (show f) ++
                     " to=" ++ (show t) ++ " weight=" ++
                     (show w) ++ ">"
edgeTemplate :: Show a => a -> a -> Weight -> String
edgeTemplate f t w = "    <Edge from=" ++ (show f) ++
                     " to=" ++ (show t) ++ " weight=" ++
                     (show w) ++ ">"
edgeTemplate f t w = "    <Edge from=" ++ (show f) ++
                     " to=" ++ (show t) ++ " weight=" ++
                     (show w) ++ ">"