blob: f4164edece64d1e3dc89b2a6eff4c0d86d9cf6ad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
interface DefExpr where
import CmdLineOpts(SwitchResult)
import CoreSyn(CoreArg, CoreExpr)
import DefSyn(DefBindee)
import Id(Id)
import SplitUniq(SplitUniqSupply)
import UniType(UniType)
import UniqFM(UniqFM)
tran :: (a -> SwitchResult) -> UniqFM (CoreExpr Id DefBindee) -> UniqFM UniType -> CoreExpr Id DefBindee -> [CoreArg DefBindee] -> SplitUniqSupply -> CoreExpr Id DefBindee
{-# GHC_PRAGMA _A_ 5 _U_ 222222 _N_ _S_ "LLLSL" _N_ _N_ #-}
|
