1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface LambdaLift where
4 import SplitUniq(SplitUniqSupply)
5 import StgSyn(StgBinding)
6 liftProgram :: SplitUniqSupply -> [StgBinding Id Id] -> [StgBinding Id Id]
7 {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}