diff options
| -rw-r--r-- | src/Main.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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)) ] -- ----------------------------------------------------------------------------- |