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)