-- | Types for the general graph colorer.
+
module GraphBase (
Triv,
Graph (..),
graphMap :: UniqFM (Node k cls color) }
-- | An empty graph.
+initGraph :: Graph k cls color
initGraph
= Graph
{ graphMap = emptyUFM }
, nodeConflicts :: UniqSet k
-- | Colors that cannot be used by this node.
- , nodeExclusions :: UniqSet color
+ , nodeExclusions :: UniqSet color
-- | Colors that this node would prefer to be, in decending order.
, nodePreference :: [color]