haskellのドットフォーマットグラフ（一般化）のノードエッジにアクセスするには

Question

'xDotGraph'（G.DotGraph）のノード、エッジ、プロパティにアクセスして、それらを再度設定したいと思います。ここではgraphvizのを使用して、ドット形式のグラフを印刷しHaskellのコードは次のとおりです。

$ cat example.dot 
digraph { 
    a [type1="", type2=""]; 
    b [type1="", type2=""]; 
    a -> b [label=""]; 
} 

import Data.GraphViz 
import Data.Text.IO as T 
import qualified Data.Text.Lazy as B 
import qualified Data.Text.Lazy.IO as L 
import qualified Data.GraphViz.Types.Generalised as G 
import Data.GraphViz.Printing 

xDotText <- L.readFile "example.xdot" 
let xDotGraph = parseDotGraph xDotText :: G.DotGraph String 
T.putStrLn $ renderDot $ toDot xDotGraph 

Answer 1

これは、（あなたのコードとほとんど同一であるが、いくつかの変更があります）私の作品：

#!/usr/bin/env stack 
{- stack runghc --resolver lts-6.0 --package graphviz 
-} 
import Data.GraphViz 
import Data.Text.IO as T 
import qualified Data.Text.Lazy as B 
import qualified Data.Text.Lazy.IO as L 
import qualified Data.GraphViz.Types.Generalised as G 
import Data.GraphViz.Printing 
import Data.GraphViz.Types 

main = do 
    xDotText <- L.readFile "example.dot" 
    let xDotGraph = parseDotGraph xDotText :: G.DotGraph String 
    L.putStrLn $ renderDot $ toDot xDotGraph 
    print $ graphNodes xDotGraph 
    print $ graphEdges xDotGraph