[project @ 2005-01-31 13:21:01 by simonpj]

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

diff --git a/ghc/compiler/stranal/WwLib.lhs b/ghc/compiler/stranal/WwLib.lhs
index 3d59539..54a167d 100644 (file)
--- a/ghc/compiler/stranal/WwLib.lhs
+++ b/ghc/compiler/stranal/WwLib.lhs
@@ -358,7 +358,7 @@ mkWWstr_one arg
        -- of dropping seqs in the worker
       Eval (Poly Abs)
        -> let
-               arg_w_unf = arg `setIdUnfolding` mkOtherCon []
+               arg_w_unf = arg `setIdUnfolding` evaldUnfolding
                -- Tell the worker arg that it's sure to be evaluated
                -- so that internal seqs can be dropped
           in