X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FMkIface.lhs;h=c0d49a36dbc1f8cf376152dded3178f072b9d9ef;hp=f8d66d5b355be27263e5c7a05a0a4c90a8ce5c46;hb=3e0a7b9fbc16e432efa562df027d189fa274943a;hpb=db0c13a482893243cc829bbc253862e65f437cbe

diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index f8d66d5..c0d49a3 100644
--- a/compiler/iface/MkIface.lhs
+++ b/compiler/iface/MkIface.lhs
@@ -1428,7 +1428,7 @@ instanceToIfaceInst (Instance { is_dfun = dfun_id, is_flag = oflag,
     is_local name = nameIsLocalOrFrom mod name
 
 	-- Compute orphanhood.  See Note [Orphans] in IfaceSyn
-    (_, cls, tys) = tcSplitDFunTy (idType dfun_id)
+    (_, _, cls, tys) = tcSplitDFunTy (idType dfun_id)
 		-- Slightly awkward: we need the Class to get the fundeps
     (tvs, fds) = classTvsFds cls
     arg_names = [filterNameSet is_local (tyClsNamesOfType ty) | ty <- tys]