X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FMkIface.lhs;fp=compiler%2Fiface%2FMkIface.lhs;h=5c236b306f362d18af1614316b4f9a67b34af47d;hp=07b1268164193fc5108616a5dfd0c7a943930cae;hb=a90dc3907a491bfb478262441534b24fb0eb22f4;hpb=470ff37b766d27ed4c62cf31e37c576105a19bc4

diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index 07b1268..5c236b3 100644
--- a/compiler/iface/MkIface.lhs
+++ b/compiler/iface/MkIface.lhs
@@ -1545,7 +1545,7 @@ toIfUnfolding lb unf@(CoreUnfolding { uf_tmpl = rhs, uf_arity = arity
 	-- have stuck in NoUnfolding.  For supercompilation we want 
 	-- to see that unfolding!
 
-toIfUnfolding lb (DFunUnfolding _con ops)
+toIfUnfolding lb (DFunUnfolding _ar _con ops)
   = Just (HsUnfold lb (IfDFunUnfold (map toIfaceExpr ops)))
       -- No need to serialise the data constructor; 
       -- we can recover it from the type of the dfun