diff options
Diffstat (limited to 'compiler/nativeGen/GraphBase.hs')
| -rw-r--r-- | compiler/nativeGen/GraphBase.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/compiler/nativeGen/GraphBase.hs b/compiler/nativeGen/GraphBase.hs index 5b0971d3be..c4e9eb3531 100644 --- a/compiler/nativeGen/GraphBase.hs +++ b/compiler/nativeGen/GraphBase.hs @@ -1,11 +1,5 @@ -- | Types for the general graph colorer. -{-# OPTIONS -w #-} --- The above warning supression flag is a temporary kludge. --- While working on this module you are encouraged to remove it and fix --- any warnings in the module. See --- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings --- for details module GraphBase ( Triv, @@ -52,6 +46,7 @@ data Graph k cls color graphMap :: UniqFM (Node k cls color) } -- | An empty graph. +initGraph :: Graph k cls color initGraph = Graph { graphMap = emptyUFM } |