Datenstruktur Graphviz

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)



Johannes Waldmann 2009-11-17