X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fspecialise%2FSpecialise.lhs;h=e96941a549f9560ba109e53b7d5dd3118e53da81;hb=0596517a9b4b2b32e5d375a986351102ac4540fc;hp=e503a9c373fe58c71664919e3144840288a4c9bd;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/specialise/Specialise.lhs b/ghc/compiler/specialise/Specialise.lhs
index e503a9c..e96941a 100644
--- a/ghc/compiler/specialise/Specialise.lhs
+++ b/ghc/compiler/specialise/Specialise.lhs
@@ -965,7 +965,7 @@ addDictBinds dbinders dbind (UsageDetails db_cis db_tycon_cis db_dbs db_fvs db_c
 	-- to look at the type of the dictionary itself.
 	-- Doing the proper job would entail keeping track of free tyvars as
 	-- well as free vars, which would be a bore.
-    db_ftvs = mkUniqSet (extractTyVarsFromTys (map idType dbinders))
+    db_ftvs = tyVarsOfTypes (map idType dbinders)
 \end{code}
 
 %************************************************************************