Tidy up rebindable syntax for MDo

[ghc-hetmet.git] / compiler / rename / RnExpr.lhs-boot

diff --git a/compiler/rename/RnExpr.lhs-boot b/compiler/rename/RnExpr.lhs-boot
index b03f50a..8870017 100644 (file)
--- a/compiler/rename/RnExpr.lhs-boot
+++ b/compiler/rename/RnExpr.lhs-boot
@@ -9,9 +9,9 @@ import TcRnTypes
 rnLExpr :: LHsExpr RdrName\r
        -> RnM (LHsExpr Name, FreeVars)\r
 \r
-rnStmts :: forall thing.\r
+rnStmts :: --forall thing.\r
           HsStmtContext Name -> [LStmt RdrName] \r
-       -> RnM (thing, FreeVars)\r
+        -> ([Name] -> RnM (thing, FreeVars))\r
        -> RnM (([LStmt Name], thing), FreeVars)\r
 \end{code}\r
 \r