X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fstranal%2FStrictAnal.lhs;h=5b19aea0b4ee629fd13340b27d2b47bfff7210ee;hp=242a94707430685b8bda5b881909ae633fad4ad3;hb=206b4dec78250efef3cd927d64dc6cbc54a16c3d;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1

diff --git a/compiler/stranal/StrictAnal.lhs b/compiler/stranal/StrictAnal.lhs
index 242a947..5b19aea 100644
--- a/compiler/stranal/StrictAnal.lhs
+++ b/compiler/stranal/StrictAnal.lhs
@@ -7,6 +7,13 @@ The original version(s) of all strictness-analyser code (except the
 Semantique analyser) was written by Andy Gill.
 
 \begin{code}
+{-# 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
+
 #ifndef OLD_STRICTNESS
 module StrictAnal ( ) where
 
@@ -402,7 +409,10 @@ data SaStats
 	    FastInt FastInt	-- total/marked-demanded let-bound
 				-- (excl. top-level; excl. letrecs)
 
-nullSaStats = SaStats (_ILIT 0) (_ILIT 0) (_ILIT 0) (_ILIT 0) (_ILIT 0) (_ILIT 0)
+nullSaStats = SaStats
+   (_ILIT(0)) (_ILIT(0))
+   (_ILIT(0)) (_ILIT(0))
+   (_ILIT(0)) (_ILIT(0))
 
 thenSa	      :: SaM a -> (a -> SaM b) -> SaM b
 thenSa_	      :: SaM a -> SaM b -> SaM b