-dsThenSimplThenTidy dflags pcs hst this_mod print_unqual is_exported tc_result
- = do -------------------------- Desugaring ----------------
- showPass dflags "DeSugar"
- -- _scc_ "DeSugar"
- (desugared, rules, h_code, c_code, fe_binders)
- <- deSugar dflags pcs hst this_mod print_unqual tc_result
-
- -------------------------- Main Core-language transformations ----------------
- -- _scc_ "Core2Core"
- (simplified, orphan_rules)
- <- core2core dflags pcs hst is_exported desugared rules
-
- -- Do the final tidy-up
- showPass dflags "TidyCore"
- (tidy_binds, tidy_orphan_rules)
- <- tidyCorePgm dflags this_mod simplified orphan_rules
-
- return (tidy_binds, tidy_orphan_rules, (fe_binders,h_code,c_code))
-
-
-myCoreToStg dflags this_mod tidy_binds