fix up Win32 build

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

diff --git a/ghc/compiler/basicTypes/Demand.lhs b/ghc/compiler/basicTypes/Demand.lhs
index 8e8f24f..50bb0c6 100644 (file)
--- a/ghc/compiler/basicTypes/Demand.lhs
+++ b/ghc/compiler/basicTypes/Demand.lhs
@@ -4,6 +4,10 @@
 \section[Demand]{@Demand@: the amount of demand on a value}
 
 \begin{code}
+#ifndef OLD_STRICTNESS
+module Demand () where
+#else
+
 module Demand(
        Demand(..),
 
@@ -38,7 +42,7 @@ data Demand
   = WwLazy             -- Argument is lazy as far as we know
        MaybeAbsent     -- (does not imply worker's existence [etc]).
                        -- If MaybeAbsent == True, then it is
-                       -- *definitely* lazy.  (NB: Absence implies
+                       --  *definitely* lazy.  (NB: Absence implies
                        -- a worker...)
 
   | WwStrict           -- Argument is strict but that's all we know
@@ -199,6 +203,6 @@ ppStrictnessInfo NoStrictnessInfo              = empty
 ppStrictnessInfo (StrictnessInfo wrapper_args bot) = hsep [pprDemands wrapper_args bot]
 \end{code}
 
-
-
-
+\begin{code}
+#endif /* OLD_STRICTNESS */
+\end{code}