From 00011bdc5d9cdc7b2875bdab22e35d2295cfc82d Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 11 Dec 2001 12:39:04 +0000
Subject: [PATCH] [project @ 2001-12-11 12:39:04 by sewardj] Really Actually
 fix syntax errors wrt -DDEBUG.

---
 ghc/compiler/basicTypes/IdInfo.lhs |   27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

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
-- 
1.7.10.4