module GraphHelp where
import Data.Graph.Inductive

mkGraphFromEdges :: Ord a => [(a,a,b)] -> Gr a b
mkGraphFromEdges es = insMapEdges nm es gr
  where
    (gr,nm,_) = insMapNodes new ns empty
    ns = concatMap (\(x,y,_) -> [x,y]) es