X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=HsTools.hs;h=d132ce874033020c12071996e3c112ec92477ce7;hb=87bdc71306c507319ff560d3dd3253e17e9c46fe;hp=22cd57f06de9d90350cb2c39e67b90b254ba058d;hpb=83a9910bd8031fbce225992e432e7dfba73b5c0f;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git diff --git a/HsTools.hs b/HsTools.hs index 22cd57f..d132ce8 100644 --- a/HsTools.hs +++ b/HsTools.hs @@ -67,12 +67,10 @@ import CoreShow -- (==) = Prelude.(==) Int $dInt -- in -- \x = (==) x 1 -toCore :: - [Module.ModuleName] -- ^ The modules that need to be imported before translating - -- this expression. - -> HsSyn.HsExpr RdrName.RdrName -- ^ The expression to translate to Core. +toCore :: + HsSyn.HsExpr RdrName.RdrName -- ^ The expression to translate to Core. -> GHC.Ghc CoreSyn.CoreExpr -- ^ The resulting core expression. -toCore modules expr = do +toCore expr = do env <- GHC.getSession let icontext = HscTypes.hsc_IC env @@ -80,7 +78,6 @@ toCore modules expr = do -- Translage the TcRn (typecheck-rename) monad into an IO monad TcRnMonad.initTcPrintErrors env PrelNames.iNTERACTIVE $ do (tc_expr, insts) <- TcRnMonad.getLIE $ do - mapM importModule modules -- Rename the expression, resulting in a HsExpr Name (rn_expr, freevars) <- RnExpr.rnExpr expr -- Typecheck the expression, resulting in a HsExpr Id and a list of