1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface TreelessForm where
3 import CmdLineOpts(SwitchResult)
4 import CoreSyn(CoreExpr)
5 import DefSyn(DefBindee)
7 import SplitUniq(SplitUniqSupply)
8 convertToTreelessForm :: (a -> SwitchResult) -> CoreExpr Id DefBindee -> SplitUniqSupply -> CoreExpr Id DefBindee
9 {-# GHC_PRAGMA _A_ 2 _U_ 012 _N_ _S_ "AS" {_A_ 1 _U_ 12 _N_ _N_ _N_ _N_} _N_ _N_ #-}