9 lines
235 B
Haskell
9 lines
235 B
Haskell
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
|