[project @ 2002-11-20 15:43:37 by simonpj]

[ghc-hetmet.git] / ghc / compiler / hsSyn / Convert.lhs

diff --git a/ghc/compiler/hsSyn/Convert.lhs b/ghc/compiler/hsSyn/Convert.lhs
index e521be0..a2b41a9 100644 (file)
--- a/ghc/compiler/hsSyn/Convert.lhs
+++ b/ghc/compiler/hsSyn/Convert.lhs
@@ -49,6 +49,9 @@ convertToHsDecls ds = map cvt_top ds
 cvt_top d@(Val _ _ _) = ValD (cvtd d)
 cvt_top d@(Fun _ _)   = ValD (cvtd d)
  
+cvt_top (TySyn tc tvs rhs)
+  = TyClD (TySynonym (tconName tc) (cvt_tvs tvs) (cvtType rhs) loc0)
+
 cvt_top (Data tc tvs constrs derivs)
   = TyClD (mkTyData DataType 
                    (noContext, tconName tc, cvt_tvs tvs)