X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FFamInst.lhs;h=f85f6b926666e2b4ef343808895ee12aeb0196cc;hb=1723d79af0638a1e96e2ae9e41208f7b86872bbc;hp=fd98fe919a9ab64da5b930e1c73ba2cc1ce6dee5;hpb=0eef3f31e57ab863792f68937889ef25e6257f08;p=ghc-hetmet.git

diff --git a/compiler/typecheck/FamInst.lhs b/compiler/typecheck/FamInst.lhs
index fd98fe9..f85f6b9 100644
--- a/compiler/typecheck/FamInst.lhs
+++ b/compiler/typecheck/FamInst.lhs
@@ -180,7 +180,7 @@ checkForConflicts inst_envs famInst
 
        ; let { matches   = lookupFamInstEnvUnify inst_envs fam tys'
 	     ; conflicts = [ conflictingFamInst
-			   | match@(_, conflictingFamInst) <- matches
+			   | match@(conflictingFamInst, _) <- matches
 			   , conflicting fam tys' tycon match 
 			   ]
 	     }