From 15d05cf3c01c16213b50ac8faf6456feda7ba14d Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 5 Jun 1997 21:03:44 +0000
Subject: [PATCH] [project @ 1997-06-05 21:03:44 by sof] updated to reflect
change in dsBinds sig
---
ghc/compiler/deSugar/DsLoop.lhi | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/deSugar/DsLoop.lhi b/ghc/compiler/deSugar/DsLoop.lhi
index 26a0c4b31347..9f8759607368 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}
--
GitLab