[project @ 2001-12-11 12:39:04 by sewardj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / IdInfo.lhs

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index f6fb587..d364222 100644 (file)
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -122,9 +122,9 @@ infixl      1 `setTyGenInfo`,
          `setAllStrictnessInfo`,
          `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
@@ -853,8 +854,8 @@ copyIdInfo :: IdInfo        -- f_local
 copyIdInfo f_local f = f { newStrictnessInfo = newStrictnessInfo f_local,
 #ifdef DEBUG
                           strictnessInfo = strictnessInfo f_local,
-                          cprInfo        = cprInfo        f_local
+                          cprInfo        = cprInfo        f_local,
 #endif
-                          workerInfo     = workerInfo     f_local,
+                          workerInfo     = workerInfo     f_local
                          }
 \end{code}