Commit ea5ae017 authored by simonpj's avatar simonpj
Browse files

[project @ 2005-08-11 08:45:41 by simonpj]

Wibble; fixes TH failures
parent 75069956
...@@ -54,7 +54,7 @@ import Maybe ( catMaybes ) ...@@ -54,7 +54,7 @@ import Maybe ( catMaybes )
import Unique ( mkPreludeTyConUnique, mkPreludeMiscIdUnique, getKey, Uniquable(..) ) import Unique ( mkPreludeTyConUnique, mkPreludeMiscIdUnique, getKey, Uniquable(..) )
import BasicTypes ( isBoxed ) import BasicTypes ( isBoxed )
import Outputable import Outputable
import Bag ( bagToList ) import Bag ( bagToList, unionManyBags )
import FastString ( unpackFS ) import FastString ( unpackFS )
import ForeignCall ( Safety(..), CCallConv(..), CCallTarget(..) ) import ForeignCall ( Safety(..), CCallConv(..), CCallTarget(..) )
...@@ -697,8 +697,8 @@ repBinds (HsValBinds decs) ...@@ -697,8 +697,8 @@ repBinds (HsValBinds decs)
rep_val_binds :: HsValBinds Name -> DsM [(SrcSpan, Core TH.DecQ)] rep_val_binds :: HsValBinds Name -> DsM [(SrcSpan, Core TH.DecQ)]
-- Assumes: all the binders of the binding are alrady in the meta-env -- Assumes: all the binders of the binding are alrady in the meta-env
rep_val_binds (ValBindsIn binds sigs) rep_val_binds (ValBindsOut binds sigs)
= do { core1 <- rep_binds' binds = do { core1 <- rep_binds' (unionManyBags (map snd binds))
; core2 <- rep_sigs' sigs ; core2 <- rep_sigs' sigs
; return (core1 ++ core2) } ; return (core1 ++ core2) }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment