From: simonpj <unknown>
Date: Wed, 9 Oct 2002 15:37:57 +0000 (+0000)
Subject: [project @ 2002-10-09 15:37:57 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1581
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=076915af7063fdcb52ca7d6cc72bc1791a4c807f;p=ghc-hetmet.git

[project @ 2002-10-09 15:37:57 by simonpj]
Missing eqn in getMonoBind
---

diff --git a/ghc/compiler/parser/RdrHsSyn.lhs b/ghc/compiler/parser/RdrHsSyn.lhs
index 1ed2429..51bf7dd 100644
--- a/ghc/compiler/parser/RdrHsSyn.lhs
+++ b/ghc/compiler/parser/RdrHsSyn.lhs
@@ -401,6 +401,8 @@ getMonoBind (FunMonoBind f1 inf1 mtchs1 loc1) binds
 	-- and use loc2 as the final location
     go mtchs loc binds = (FunMonoBind f1 inf1 mtchs loc, binds)
 
+getMonoBind bind binds = (bind, binds)
+
 has_args ((Match args _ _) : _) = not (null args)
 	-- Don't group together FunMonoBinds if they have
 	-- no arguments.  This is necessary now that variable bindings