From: sof <unknown>
Date: Thu, 5 Jun 1997 21:03:44 +0000 (+0000)
Subject: [project @ 1997-06-05 21:03:44 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~371
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=15d05cf3c01c16213b50ac8faf6456feda7ba14d;p=ghc-hetmet.git

[project @ 1997-06-05 21:03:44 by sof]
updated to reflect change in dsBinds sig
---

diff --git a/ghc/compiler/deSugar/DsLoop.lhi b/ghc/compiler/deSugar/DsLoop.lhi
index 26a0c4b..9f87596 100644
--- a/ghc/compiler/deSugar/DsLoop.lhi
+++ b/ghc/compiler/deSugar/DsLoop.lhi
@@ -9,11 +9,12 @@ import DsMonad	( DsM(..) )
 import DsBinds	( dsBinds )
 import DsExpr	( dsExpr )
 import DsUtils	( EquationInfo, MatchResult )
+import FastString ( FastString )
 import Id	( Id(..) )
 import Match	( match, matchSimply )
+import PreludeStdIO ( Maybe )
 import TcHsSyn	( TypecheckedHsBinds(..), TypecheckedHsExpr(..), TypecheckedPat(..) )
 import Type	( Type(..) )
-
 match :: [Id]		  -- Variables rep'ing the exprs we're matching with
       -> [EquationInfo]	  -- Info about patterns, etc. (type synonym below)
       -> [EquationInfo]	  -- Potentially shadowing equations above this one
@@ -26,6 +27,6 @@ matchSimply :: CoreExpr			-- Scrutinee
 	    -> CoreExpr			-- Return this if it does
 	    -> DsM CoreExpr
 
-dsBinds :: TypecheckedHsBinds -> DsM [CoreBinding]
+dsBinds :: Maybe (FastString, FastString) -> TypecheckedHsBinds -> DsM [CoreBinding]
 dsExpr  :: TypecheckedHsExpr  -> DsM CoreExpr
 \end{code}