[project @ 1999-06-08 16:46:44 by simonpj]

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

diff --git a/ghc/compiler/stranal/SaAbsInt.lhs b/ghc/compiler/stranal/SaAbsInt.lhs
index dc1efe4..37e9248 100644 (file)
--- a/ghc/compiler/stranal/SaAbsInt.lhs
+++ b/ghc/compiler/stranal/SaAbsInt.lhs
@@ -381,7 +381,7 @@ absId anal var env
 
 
        (Nothing, strictness_info, _) ->
-                       -- Includes MagicUnfolding, NoUnfolding
+                       -- Includes NoUnfolding
                        -- Try the strictness info
                        absValFromStrictness anal strictness_info
 \end{code}
@@ -630,7 +630,7 @@ findStrictness :: [Type]            -- Types of args in which strictness is wanted
 findStrictness tys str_val abs_val
   = (map find_str tys_w_index, isBot (foldl (absApply StrAnal) str_val all_tops))
   where
-    tys_w_index = tys `zip` [1..]
+    tys_w_index = tys `zip` [(1::Int) ..]
 
     find_str (ty,n) = findRecDemand str_fn abs_fn ty
                    where