From ea5ae017de01553bc808c2fa216218b9a13b51ef Mon Sep 17 00:00:00 2001 From: simonpj Date: Thu, 11 Aug 2005 08:45:41 +0000 Subject: [PATCH] [project @ 2005-08-11 08:45:41 by simonpj] Wibble; fixes TH failures --- ghc/compiler/deSugar/DsMeta.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ghc/compiler/deSugar/DsMeta.hs b/ghc/compiler/deSugar/DsMeta.hs index 9785cdb..e13b062 100644 --- a/ghc/compiler/deSugar/DsMeta.hs +++ b/ghc/compiler/deSugar/DsMeta.hs @@ -54,7 +54,7 @@ import Maybe ( catMaybes ) import Unique ( mkPreludeTyConUnique, mkPreludeMiscIdUnique, getKey, Uniquable(..) ) import BasicTypes ( isBoxed ) import Outputable -import Bag ( bagToList ) +import Bag ( bagToList, unionManyBags ) import FastString ( unpackFS ) import ForeignCall ( Safety(..), CCallConv(..), CCallTarget(..) ) @@ -697,8 +697,8 @@ repBinds (HsValBinds decs) rep_val_binds :: HsValBinds Name -> DsM [(SrcSpan, Core TH.DecQ)] -- Assumes: all the binders of the binding are alrady in the meta-env -rep_val_binds (ValBindsIn binds sigs) - = do { core1 <- rep_binds' binds +rep_val_binds (ValBindsOut binds sigs) + = do { core1 <- rep_binds' (unionManyBags (map snd binds)) ; core2 <- rep_sigs' sigs ; return (core1 ++ core2) } -- 1.7.10.4