[project @ 1997-06-13 04:11:47 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 26a0c4b..d38d04e 100644 (file)
--- 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 :: Bool -> TypecheckedHsBinds -> DsM [CoreBinding]
 dsExpr  :: TypecheckedHsExpr  -> DsM CoreExpr
 \end{code}