1 {-# GHC_PRAGMA INTERFACE VERSION 3 #-}
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