Commit 2540a99f authored by sewardj's avatar sewardj
Browse files

[project @ 2000-10-16 16:34:33 by sewardj]

Make compile.
parent 0591c2b9
......@@ -4,7 +4,7 @@
\section[TcBinds]{TcBinds}
\begin{code}
module TcBinds ( tcBindsAndThen, tcTopBinds,y
module TcBinds ( tcBindsAndThen, tcTopBinds,
tcSpecSigs, tcBindWithSigs ) where
#include "HsVersions.h"
......@@ -58,7 +58,7 @@ import Util ( isIn )
import Maybes ( maybeToBool )
import BasicTypes ( TopLevelFlag(..), RecFlag(..), isNotTopLevel )
import FiniteMap ( listToFM, lookupFM )
import PrelNames ( ioTyConKey, mainKey, hasKey )
import PrelNames ( ioTyConName, mainKey, hasKey )
import Outputable
\end{code}
......
__interface TcExpr 1 0 where
__export TcExpr tcExpr ;
1 tcExpr :: __forall [s] =>
1 tcExpr ::
RnHsSyn.RenamedHsExpr
-> TcMonad.TcType
-> TcMonad.TcM s (TcHsSyn.TcExpr, Inst.LIE) ;
-> TcMonad.TcM (TcHsSyn.TcExpr, Inst.LIE) ;
__interface TcMatches 1 0 where
__export TcMatches tcGRHSs tcMatchesFun;
1 tcGRHSs :: __forall [s] =>
1 tcGRHSs ::
RnHsSyn.RenamedGRHSs
-> TcMonad.TcType
-> HsExpr.StmtCtxt
-> TcMonad.TcM s (TcHsSyn.TcGRHSs, Inst.LIE) ;
1 tcMatchesFun :: __forall [s] =>
-> TcMonad.TcM (TcHsSyn.TcGRHSs, Inst.LIE) ;
1 tcMatchesFun ::
[(Name.Name,Var.Id)]
-> Name.Name
-> TcMonad.TcType
-> [RnHsSyn.RenamedMatch]
-> TcMonad.TcM s ([TcHsSyn.TcMatch], Inst.LIE) ;
-> TcMonad.TcM ([TcHsSyn.TcMatch], Inst.LIE) ;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment