blob: 0a00a9e2bcc3f9d4441267788c7bbd068416cbb2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
\begin{code}
module RnExpr where
import HsSyn
import Name ( Name )
import NameSet ( FreeVars )
import RdrName ( RdrName )
import TcRnTypes
import SrcLoc ( Located )
import Outputable ( Outputable )
rnLExpr :: LHsExpr RdrName
-> RnM (LHsExpr Name, FreeVars)
rnStmts :: --forall thing body.
Outputable (body RdrName) => HsStmtContext Name
-> (Located (body RdrName) -> RnM (Located (body Name), FreeVars))
-> [LStmt RdrName (Located (body RdrName))]
-> ([Name] -> RnM (thing, FreeVars))
-> RnM (([LStmt Name (Located (body Name))], thing), FreeVars)
\end{code}
|