From 076915af7063fdcb52ca7d6cc72bc1791a4c807f Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 9 Oct 2002 15:37:57 +0000
Subject: [PATCH] [project @ 2002-10-09 15:37:57 by simonpj] Missing eqn in
 getMonoBind

---
 ghc/compiler/parser/RdrHsSyn.lhs |    2 ++
 1 file changed, 2 insertions(+)

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