[project @ 1997-10-19 22:07:23 by sof]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsLoop.lhi

diff --git a/ghc/compiler/deSugar/DsLoop.lhi b/ghc/compiler/deSugar/DsLoop.lhi
index 9f87596..d38d04e 100644 (file)
--- a/ghc/compiler/deSugar/DsLoop.lhi
+++ b/ghc/compiler/deSugar/DsLoop.lhi
@@ -27,6 +27,6 @@ matchSimply :: CoreExpr                       -- Scrutinee
            -> CoreExpr                 -- Return this if it does
            -> DsM CoreExpr
 
-dsBinds :: Maybe (FastString, FastString) -> TypecheckedHsBinds -> DsM [CoreBinding]
+dsBinds :: Bool -> TypecheckedHsBinds -> DsM [CoreBinding]
 dsExpr  :: TypecheckedHsExpr  -> DsM CoreExpr
 \end{code}