ghci> toAdjList $ vacuum (fix (0:))
[(0,[1,0]),(1,[])]
ghci> ppHs $ vacuum (fix (0:))
fromList
[(0,
HNode{nodePtrs = [1, 0], nodeLits = [40425920],
nodeInfo =
ConInfo{itabPkg = "ghc-prim", itabMod = "GHC.Types", itabCon = ":",
itabPtrs = 2, itabLits = 0, itabType = CONSTR_2_0, itabSrtLen = 1,
itabCode =
[72, 131, 195, 2, 255, 101, 0, 144, 224, 30, 0, 0, 0, 0, 0, 0]}}),
(1,
HNode{nodePtrs = [], nodeLits = [0, 40425920],
nodeInfo =
ConInfo{itabPkg = "integer", itabMod = "GHC.Integer.Internals",
itabCon = "S#", itabPtrs = 0, itabLits = 1, itabType = CONSTR_0_1,
itabSrtLen = 0,
itabCode =
[72, 255, 195, 255, 101, 0, 102, 144, 152, 0, 0, 0, 0, 0, 0, 0]}})]
ghci> ppDot . nameGraph $ vacuum (fix (0:))
digraph g {
graph [rankdir=LR, splines=true];
node [label="\N", shape=none, fontcolor=blue, fontname=courier];
edge [color=black, style=dotted, fontname=courier, arrowname=onormal];
":|0" -> {"S#|1",":|0"}
"S#|1" -> {}
}
|