From: Manuel M T Chakravarty <chak@cse.unsw.edu.au>
Date: Wed, 2 Aug 2006 17:10:52 +0000 (+0000)
Subject: Add new field to TySynonym
X-Git-Tag: After_FC_branch_merge~179
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=9cbee1b3381d4eac1f54e9f0b4c333e6ead3a4cf;ds=sidebyside

Add new field to TySynonym
---

diff --git a/compiler/hsSyn/Convert.lhs b/compiler/hsSyn/Convert.lhs
index 2055650..17d6be9 100644
--- a/compiler/hsSyn/Convert.lhs
+++ b/compiler/hsSyn/Convert.lhs
@@ -109,7 +109,7 @@ cvtTop (TySynD tc tvs rhs)
   = do	{ tc' <- tconNameL tc
 	; tvs' <- cvtTvs tvs
 	; rhs' <- cvtType rhs
-	; returnL $ TyClD (TySynonym tc' tvs' rhs') }
+	; returnL $ TyClD (TySynonym tc' tvs' Nothing rhs') }
 
 cvtTop (DataD ctxt tc tvs constrs derivs)
   = do	{ stuff <- cvt_tycl_hdr ctxt tc tvs