diff options
Diffstat (limited to 'compiler/nativeGen/GraphBase.hs')
| -rw-r--r-- | compiler/nativeGen/GraphBase.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/nativeGen/GraphBase.hs b/compiler/nativeGen/GraphBase.hs index b980ba2261..04eda96120 100644 --- a/compiler/nativeGen/GraphBase.hs +++ b/compiler/nativeGen/GraphBase.hs @@ -16,6 +16,7 @@ where import UniqSet import UniqFM + -- | A fn to check if a node is trivially colorable -- For graphs who's color classes are disjoint then a node is 'trivially colorable' -- when it has less neighbors and exclusions than available colors for that node. @@ -45,6 +46,7 @@ data Graph k cls color -- | All active nodes in the graph. graphMap :: UniqFM (Node k cls color) } + -- | An empty graph. initGraph :: Graph k cls color initGraph @@ -106,3 +108,4 @@ newNode k cls + |