From dcf55a8de3bf87ce02325118159634ad8efc2e0f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 25 Mar 2004 10:01:42 +0000
Subject: [haddock @ 2004-03-25 10:01:42 by simonmar] Fix duplicate instance
 bug

---
 src/Main.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index bf1350ec..9106bffb 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1098,8 +1098,7 @@ collectInstances mod_ifaces
 			
     ty_inst_pairs = [ (nm, [(ctxt,(cls,args))])
 		    | HsInstDecl _ ctxt (cls,args) _ <- all_instances,
-		      arg <- args,
-		      nm <- freeTyCons arg
+		      nm <- nub (concat (map freeTyCons args))
 		    ]
  
 -- -----------------------------------------------------------------------------
-- 
cgit v1.2.3