From: simonmar <unknown>
Date: Mon, 9 Jan 2006 14:32:57 +0000 (+0000)
Subject: [project @ 2006-01-09 14:32:57 by simonmar]
X-Git-Tag: final_switch_to_darcs,_this_repo_is_now_live~52
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=e38f57d95204bea6c322425af0da52cf8ce72d0e;p=ghc-hetmet.git

[project @ 2006-01-09 14:32:57 by simonmar]
Put a dummy record initialisation in to fix a warning
---

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index 5253d11..8c23d48 100644
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -110,7 +110,8 @@ emptyRnGroup  = emptyGroup { hs_valds = emptyValBindsOut }
 
 emptyGroup = HsGroup { hs_tyclds = [], hs_instds = [],
 		       hs_fixds = [], hs_defds = [], hs_fords = [], 
-		       hs_depds = [] ,hs_ruleds = [] }
+		       hs_depds = [], hs_ruleds = [],
+		       hs_valds = error "emptyGroup hs_valds: Can't happen" }
 
 appendGroups :: HsGroup a -> HsGroup a -> HsGroup a
 appendGroups