From e38f57d95204bea6c322425af0da52cf8ce72d0e Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 9 Jan 2006 14:32:57 +0000
Subject: [PATCH] [project @ 2006-01-09 14:32:57 by simonmar] Put a dummy
 record initialisation in to fix a warning

---
 ghc/compiler/hsSyn/HsDecls.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 
-- 
1.7.10.4