[project @ 2005-10-28 11:35:35 by simonmar]

[ghc-hetmet.git] / ghc / compiler / stranal / SaLib.lhs

diff --git a/ghc/compiler/stranal/SaLib.lhs b/ghc/compiler/stranal/SaLib.lhs
index 8c443b5..338a351 100644 (file)
--- a/ghc/compiler/stranal/SaLib.lhs
+++ b/ghc/compiler/stranal/SaLib.lhs
@@ -6,11 +6,10 @@
 See also: the ``library'' for the ``back end'' (@SaBackLib@).
 
 \begin{code}
-#ifndef DEBUG
--- If DEBUG is off, omit all exports 
-module SaAbsInt () where
-
+#ifndef OLD_STRICTNESS
+module SaLib () where
 #else
+
 module SaLib (
        AbsVal(..),
        AnalysisKind(..),
@@ -20,7 +19,6 @@ module SaLib (
        lookupAbsValEnv,
        absValFromStrictness
     ) where
-#endif /* DEBUG */
 
 #include "HsVersions.h"
 
@@ -56,7 +54,7 @@ data AbsVal
   | AbsBot                 -- An expression whose abstract value is
                            -- AbsBot is sure to fail to terminate.
                            -- AbsBot represents the abstract
-                           -- *function* bottom too.
+                           --  *function* bottom too.
 
   | AbsProd [AbsVal]       -- (Lifted) product of abstract values
                            -- "Lifted" means that AbsBot is *different* from
@@ -126,3 +124,7 @@ absValFromStrictness anal (StrictnessInfo args_info bot_result)
                                StrAnal -> AbsBot
                                AbsAnal -> AbsTop
 \end{code}
+
+\begin{code}
+#endif /* OLD_STRICTNESS */
+\end{code}