[project @ 1996-01-08 20:28:12 by partain]
[ghc.git] / ghc / compiler / deforest / DefExpr.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface DefExpr where
3 import CmdLineOpts(SwitchResult)
4 import CoreSyn(CoreArg, CoreExpr)
5 import DefSyn(DefBindee)
6 import Id(Id)
7 import SplitUniq(SplitUniqSupply)
8 import UniType(UniType)
9 import UniqFM(UniqFM)
10 tran :: (a -> SwitchResult) -> UniqFM (CoreExpr Id DefBindee) -> UniqFM UniType -> CoreExpr Id DefBindee -> [CoreArg DefBindee] -> SplitUniqSupply -> CoreExpr Id DefBindee
11         {-# GHC_PRAGMA _A_ 5 _U_ 222222 _N_ _S_ "LLLSL" _N_ _N_ #-}
12