X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcodeGen%2FStgCmmGran.hs;h=27e6114356a5d0162f418f91abe4c1cbc66a481c;hp=5fad2bfc09a45f928c4b523f06c9998507fc405d;hb=ee2623c8841a3a26c37bd7695a7db7be5d7e3a7f;hpb=0345a8378429e10e0c4feb7a6be2f9f132699b81

diff --git a/compiler/codeGen/StgCmmGran.hs b/compiler/codeGen/StgCmmGran.hs
index 5fad2bf..27e6114 100644
--- a/compiler/codeGen/StgCmmGran.hs
+++ b/compiler/codeGen/StgCmmGran.hs
@@ -8,13 +8,6 @@
 --
 -----------------------------------------------------------------------------
 
-{-# 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 StgCmmGran (
 	staticGranHdr,staticParHdr,
 	granThunk, granYield,
@@ -26,7 +19,6 @@ module StgCmmGran (
 -- I've left the calls, though, in case anyone wants to resurrect it
 
 import StgCmmMonad
-import Id
 import Cmm
 
 staticGranHdr :: [CmmLit]
@@ -37,16 +29,13 @@ staticParHdr = []
 
 doGranAllocate :: VirtualHpOffset -> FCode ()
 -- Must be lazy in the amount of allocation
-doGranAllocate n = return ()
-
-granFetchAndReschedule :: [(Id,GlobalReg)] -> Bool -> FCode ()
-granFetchAndReschedule regs node_reqd = return ()
+doGranAllocate _ = return ()
 
 granYield :: [LocalReg] -> Bool -> FCode ()
-granYield regs node_reqd = return ()
+granYield _regs _node_reqd = return ()
 
 granThunk :: Bool -> FCode ()
-granThunk node_points = return ()
+granThunk _node_points = return ()
 
 -----------------------------------------------------------------
 {-   ------- Everything below here is commented out -------------