X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcodeGen%2FStgCmmGran.hs;h=b6a1ae66bbbfd0f7d6c6d1afa7a1d5e3bc8cfcf2;hp=5fad2bfc09a45f928c4b523f06c9998507fc405d;hb=18691d440f90a3dff4ef538091c886af505e5cf5;hpb=176fa33f17dd78355cc572e006d2ab26898e2c69

diff --git a/compiler/codeGen/StgCmmGran.hs b/compiler/codeGen/StgCmmGran.hs
index 5fad2bf..b6a1ae6 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,8 +19,7 @@ module StgCmmGran (
 -- I've left the calls, though, in case anyone wants to resurrect it
 
 import StgCmmMonad
-import Id
-import Cmm
+import CmmExpr
 
 staticGranHdr :: [CmmLit]
 staticGranHdr = []
@@ -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 -------------