import Control.Monad.Trans.Class
import Control.Monad.Trans.Reader
import Control.Monad.IO.Class
import Control.Monad.Trans.Class
import Control.Monad.Trans.Reader
import Control.Monad.IO.Class
let spec = defaultCuratedPassSetSpec { optLevel = Just 3 }
-- this returns true if the module was modified
withPassManager spec $ flip runPassManager mdl
Text.hPutStrLn stderr . ("\n" <>) . ppllvm =<< moduleAST mdl
let spec = defaultCuratedPassSetSpec { optLevel = Just 3 }
-- this returns true if the module was modified
withPassManager spec $ flip runPassManager mdl
Text.hPutStrLn stderr . ("\n" <>) . ppllvm =<< moduleAST mdl