- toAdjPair :: (HNodeId, HNode) -> (Int, [Int])
- toAdjList :: IntMap HNode -> [(Int, [Int])]
- nameGraph :: IntMap HNode -> [(String, [String])]
- data ShowHNode = ShowHNode {}
- showHNodes :: ShowHNode -> IntMap HNode -> [(String, [String])]
- ppDot :: [(String, [String])] -> Doc
- renderDot :: [(String, [String])] -> String
- data Draw e v m a = Draw {}
- newtype G e v = G {}
- draw :: Monad m => Draw e v m a -> IntMap a -> m (G e v)
- printDraw :: Draw (Int, Int) Int IO HNode
- split :: (a -> [Int]) -> IntMap a -> IntMap ([Int], [Int])
- module GHC.Vacuum.Pretty.Dot