diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2007-09-05 09:45:09 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2007-09-05 09:45:09 +0000 |
| commit | 272f0ba89eca1d9fc700cf4c27b9f8c3e23d6fe8 (patch) | |
| tree | 6635d52885d386bed6dcab6ec592f9ce14a973ad /compiler/nativeGen/GraphBase.hs | |
| parent | a7f409e855291efece19970927156fae4e527b6e (diff) | |
| download | haskell-272f0ba89eca1d9fc700cf4c27b9f8c3e23d6fe8.tar.gz | |
warning police
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 } |