X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FTidyPgm.lhs;h=98fbeb30f7bf58d1d9cf0187246e5477d33e8143;hb=8392ba25da0acb27cd64bf0bb4e5fb5406de4222;hp=4ab553d46c6b407f7b48f80e55825497b886a2ae;hpb=9a81ddfb43b96cfeae2236c9616ca3552250b235;p=ghc-hetmet.git

diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs
index 4ab553d..98fbeb3 100644
--- a/compiler/main/TidyPgm.lhs
+++ b/compiler/main/TidyPgm.lhs
@@ -712,7 +712,7 @@ addExternal expose_all id = (new_needed_ids, show_unfold)
 		      CoreUnfolding { uf_tmpl = unf_rhs, uf_src = src, uf_guidance = guide } 
 					    | show_unfolding src guide
 					    -> Just (unf_ext_ids src unf_rhs)
-		      DFunUnfolding _ _ ops -> Just (exprsFvsInOrder ops)
+                      DFunUnfolding _ _ ops -> Just (exprsFvsInOrder (dfunArgExprs ops))
 		      _                     -> Nothing
                   where
                     unf_ext_ids (InlineWrapper v) _ = (unitVarSet v, [v])