GVTrans entnommen
GVTrans
data Graphviz = Graphviz
{ nodesGV :: GVNodeMap
, edgesGV :: Set GVEdge
, directedGV :: Bool
} deriving (Show)
data GVNode = GVNode
{ nameGVN :: GVName
, labelGVN :: Maybe GVLabel
, colorGVN :: Maybe GVColor
, xattsGVN :: Maybe GVXAtts
} deriving (Show)
data GVEdge = GVEdge
{ idGVN1 :: GVNodeID
, idGVN2 :: GVNodeID
, labelGVE :: Maybe GVLabel
, xattsGVE :: Maybe GVXAtts
} deriving (Show, Eq, Ord)