[project @ 1999-05-11 16:37:29 by keithw]

[ghc-hetmet.git] / ghc / compiler / rename / RnSource.lhs

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index d4d4337..51f9ea3 100644 (file)
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -618,6 +618,10 @@ rnHsType doc (MonoDictTy clas tys)
     rnHsTypes doc tys          `thenRn` \ (tys', fvs) ->
     returnRn (MonoDictTy clas' tys', fvs `addOneFV` clas')
 
+rnHsType doc (MonoUsgTy usg ty)
+  = rnHsType doc ty             `thenRn` \ (ty', fvs) ->
+    returnRn (MonoUsgTy usg ty', fvs)
+
 rnHsTypes doc tys
   = mapAndUnzipRn (rnHsType doc) tys   `thenRn` \ (tys, fvs_s) ->
     returnRn (tys, plusFVs fvs_s)