makeGraph :: [(Char, Int, Int)] -> Graph
makeGraph edges = foldr (\(l,f,t) acc -> Edge {label = l, from = f, to = t}:acc) [] edges
makeGraph :: [(Char, Int, Int)] -> Graph
makeGraph edges = foldr (\(l,f,t) acc -> Edge {label = l, from = f, to = t}:acc) [] edges
makeGraph edges = foldr (\(l,f,t) acc -> Edge {label = l, from = f, to = t}:acc) [] edges