X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsBinds.lhs;fp=ghc%2Fcompiler%2FhsSyn%2FHsBinds.lhs;h=efedcd6086d9c9e561ef06be008a597c70138d7a;hb=c7b389309e5cdc86db9845573900b560c7a2fa05;hp=494ac606b5e73488480b39f5d2991c2277997288;hpb=49fabae45e348e93d25064e469dc777eb3bfc56d;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/HsBinds.lhs b/ghc/compiler/hsSyn/HsBinds.lhs
index 494ac60..efedcd6 100644
--- a/ghc/compiler/hsSyn/HsBinds.lhs
+++ b/ghc/compiler/hsSyn/HsBinds.lhs
@@ -62,9 +62,6 @@ instance OutputableBndr id => Outputable (HsBindGroup id) where
   ppr (HsIPBinds ipbinds)
      = vcat (map ppr ipbinds)
 
-mkHsBindGroup :: RecFlag -> Bag (LHsBind id) -> HsBindGroup id
-mkHsBindGroup is_rec mbinds = HsBindGroup mbinds [] is_rec
-
 -- -----------------------------------------------------------------------------
 -- Implicit parameter bindings