blob: 5419870d386d5c930fddfd36afad04e8c9fb9dca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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)
|
