[commit: ghc] master: Fix warnings in utils/GraphColor.hs (d12f609)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/d12f609b4d07fb58d2f7a0760cc9e73c5a24ca84

>---------------------------------------------------------------

commit d12f609b4d07fb58d2f7a0760cc9e73c5a24ca84
Author: Ian Lynagh <igloo at earth.li>
Date:   Sun Feb 26 17:54:04 2012 +0000

    Fix warnings in utils/GraphColor.hs

>---------------------------------------------------------------

 compiler/utils/GraphColor.hs |   30 ++++++++++++++++++++++++++----
 1 files changed, 26 insertions(+), 4 deletions(-)

diff --git a/compiler/utils/GraphColor.hs b/compiler/utils/GraphColor.hs
index d377094..7ba8efb 100644
--- a/compiler/utils/GraphColor.hs
+++ b/compiler/utils/GraphColor.hs
@@ -1,7 +1,3 @@
-{-# OPTIONS -fno-warn-missing-signatures #-}
-
--- The above warning supression flag is a temporary kludge.
-
 -- | Graph Coloring.
 --      This is a generic graph coloring library, abstracted over the type of
 --      the node keys, nodes and colors.
@@ -145,6 +141,19 @@ colorScan
 colorScan iterative triv spill graph
         = colorScan_spin iterative triv spill graph [] [] []
 
+colorScan_spin
+        :: ( Uniquable k, Uniquable cls, Uniquable color
+           , Ord k,       Eq cls
+           , Outputable k, Outputable cls)
+        => Bool
+        -> Triv k cls color
+        -> (Graph k cls color -> k)
+        -> Graph k cls color
+        -> [k]
+        -> [k]
+        -> [(k, k)]
+        -> ([k], [k], [(k, k)])
+
 colorScan_spin iterative triv spill graph
         ksTriv ksSpill kksCoalesce
 
@@ -215,6 +224,19 @@ colorScan_spin iterative triv spill graph
 --      and the graph isn't empty yet.. We'll have to choose a spill
 --      candidate and leave it uncolored.
 --
+colorScan_spill
+        :: ( Uniquable k, Uniquable cls, Uniquable color
+           , Ord k,       Eq cls
+           , Outputable k, Outputable cls)
+        => Bool
+        -> Triv k cls color
+        -> (Graph k cls color -> k)
+        -> Graph k cls color
+        -> [k]
+        -> [k]
+        -> [(k, k)]
+        -> ([k], [k], [(k, k)])
+
 colorScan_spill iterative triv spill graph
         ksTriv ksSpill kksCoalesce