[project @ 1997-01-17 00:32:23 by simonpj]

[ghc-hetmet.git] / ghc / compiler / reader / RdrHsSyn.lhs

diff --git a/ghc/compiler/reader/RdrHsSyn.lhs b/ghc/compiler/reader/RdrHsSyn.lhs
index bd2f8e4..776ccfc 100644 (file)
--- a/ghc/compiler/reader/RdrHsSyn.lhs
+++ b/ghc/compiler/reader/RdrHsSyn.lhs
@@ -114,7 +114,7 @@ extractHsTyVars :: HsType RdrName -> [RdrName]
 extractHsTyVars ty
   = get ty []
   where
-    get (MonoTyApp con tys)     acc = foldr get (insert con acc) tys
+    get (MonoTyApp ty1 ty2)     acc = get ty1 (get ty2 acc)
     get (MonoListTy tc ty)      acc = get ty acc
     get (MonoTupleTy tc tys)    acc = foldr get acc tys
     get (MonoFunTy ty1 ty2)     acc = get ty1 (get ty2 acc)