Adjacency List Map to dot graph

ToDot.hs

module ToDot where

import Data.Map

generateDot :: (Ord a, Show a) => Map a [a] -> IO ()
generateDot mp = do
	putStrLn "graph G {"
	foldrWithKey (\k v r ->
		putStrLn ("  v" ++ show k) >> Prelude.foldr (\e r' -> r' >> when (k < e) (putStrLn ("  v" ++ show k ++ " -- v" ++ show e))) 
			r v
		) (return ()) mp
	putStrLn "}"