From: sewardj <unknown>
Date: Tue, 11 Dec 2001 12:39:04 +0000 (+0000)
Subject: [project @ 2001-12-11 12:39:04 by sewardj]
X-Git-Tag: Approximately_9120_patches~415
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=00011bdc5d9cdc7b2875bdab22e35d2295cfc82d;p=ghc-hetmet.git

[project @ 2001-12-11 12:39:04 by sewardj]
Really Actually fix syntax errors wrt -DDEBUG.
---

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index 4744596..d364222 100644
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -120,11 +120,11 @@ infixl 	1 `setTyGenInfo`,
 	  `setCafInfo`,
 	  `setNewStrictnessInfo`,
 	  `setAllStrictnessInfo`,
-	  `setNewDemandInfo`,
+	  `setNewDemandInfo`
 #ifdef DEBUG
-	  `setCprInfo`,
-	  `setDemandInfo`,
-	  `setStrictnessInfo`
+	  , `setCprInfo`
+	  , `setDemandInfo`
+	  , `setStrictnessInfo`
 #endif
 \end{code}
 
@@ -137,22 +137,23 @@ infixl 	1 `setTyGenInfo`,
 To be removed later
 
 \begin{code}
-setAllStrictnessInfo :: IdInfo -> Maybe StrictSig -> IdInfo
+-- setAllStrictnessInfo :: IdInfo -> Maybe StrictSig -> IdInfo
 -- Set old and new strictness info
 setAllStrictnessInfo info Nothing
-  = info { newStrictnessInfo = Nothing, 
+  = info { newStrictnessInfo = Nothing
 #ifdef DEBUG
-	   strictnessInfo = NoStrictnessInfo, 
-	   cprInfo = NoCPRInfo,
+         , strictnessInfo = NoStrictnessInfo
+         , cprInfo = NoCPRInfo
 #endif
-	   }
+         }
+
 setAllStrictnessInfo info (Just sig)
-  = info { newStrictnessInfo = Just sig, 
+  = info { newStrictnessInfo = Just sig
 #ifdef DEBUG
-	   strictnessInfo = oldStrictnessFromNew sig, 
-	   cprInfo = cprInfoFromNewStrictness sig,
+         , strictnessInfo = oldStrictnessFromNew sig
+         , cprInfo = cprInfoFromNewStrictness sig
 #endif
-	   }
+         }
 
 seqNewStrictnessInfo Nothing = ()
 seqNewStrictnessInfo (Just ty) = seqStrictSig ty