[project @ 1999-04-27 15:23:29 by simonm]

[ghc-hetmet.git] / ghc / compiler / simplCore / OccurAnal.lhs

diff --git a/ghc/compiler/simplCore/OccurAnal.lhs b/ghc/compiler/simplCore/OccurAnal.lhs
index 5b021f0..0025172 100644 (file)
--- a/ghc/compiler/simplCore/OccurAnal.lhs
+++ b/ghc/compiler/simplCore/OccurAnal.lhs
@@ -606,6 +606,7 @@ occAnal env (Con con args)
        -- arguments are just variables, or trivial expressions.
        final_arg_uds    = case con of
                                DataCon _ -> mapVarEnv markMany arg_uds
+                               PrimOp _  -> mapVarEnv markLazy arg_uds
                                other     -> arg_uds
     in
     (final_arg_uds, Con con args')