[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / compiler / deforest / TreelessForm.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface TreelessForm where
3 import CmdLineOpts(SwitchResult)
4 import CoreSyn(CoreExpr)
5 import DefSyn(DefBindee)
6 import Id(Id)
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_ #-}
10