rename -ddump-rdr to -ddump-parsed, and make it work.
opt_D_dump_foreign,
opt_D_dump_inlinings,
opt_D_dump_occur_anal,
opt_D_dump_foreign,
opt_D_dump_inlinings,
opt_D_dump_occur_anal,
opt_D_dump_realC,
opt_D_dump_rn,
opt_D_dump_rules,
opt_D_dump_realC,
opt_D_dump_rn,
opt_D_dump_rules,
opt_D_dump_foreign = lookUp SLIT("-ddump-foreign-stubs")
opt_D_dump_inlinings = lookUp SLIT("-ddump-inlinings")
opt_D_dump_occur_anal = lookUp SLIT("-ddump-occur-anal")
opt_D_dump_foreign = lookUp SLIT("-ddump-foreign-stubs")
opt_D_dump_inlinings = lookUp SLIT("-ddump-inlinings")
opt_D_dump_occur_anal = lookUp SLIT("-ddump-occur-anal")
-opt_D_dump_rdr = lookUp SLIT("-ddump-rdr")
+opt_D_dump_parsed = lookUp SLIT("-ddump-parsed")
opt_D_dump_realC = lookUp SLIT("-ddump-realC")
opt_D_dump_rn = lookUp SLIT("-ddump-rn")
opt_D_dump_simpl = lookUp SLIT("-ddump-simpl")
opt_D_dump_realC = lookUp SLIT("-ddump-realC")
opt_D_dump_rn = lookUp SLIT("-ddump-rn")
opt_D_dump_simpl = lookUp SLIT("-ddump-simpl")
= doIfSet opt_Verbose
(hPutStr stderr "Glasgow Haskell Compiler, version " >>
hPutStr stderr compiler_version >>
= doIfSet opt_Verbose
(hPutStr stderr "Glasgow Haskell Compiler, version " >>
hPutStr stderr compiler_version >>
- hPutStr stderr ", for Haskell 98\n") >>
+ hPutStr stderr ", for Haskell 98\n" >>
+ hPutStr stderr "\tcompiled by GHC version " >>
+ hPutStr stderr booter_version >>
+ hPutStr stderr "\n") >>
-------------------------- Reader ----------------
-------------------------- Reader ----------------
- show_pass "Reader" >>
- _scc_ "Reader"
+ show_pass "Parser" >>
+ _scc_ "Parser"
parseModule >>= \ (mod_name, rdr_module) ->
parseModule >>= \ (mod_name, rdr_module) ->
+ dumpIfSet opt_D_dump_parsed "Parser" (ppr rdr_module) >>
+
dumpIfSet opt_D_source_stats "Source Statistics"
(ppSourceStats False rdr_module) >>
dumpIfSet opt_D_source_stats "Source Statistics"
(ppSourceStats False rdr_module) >>
go ls@[x,y] = '.':ls
go (x:xs) = x:go xs
go ls@[x,y] = '.':ls
go (x:xs) = x:go xs
+booter_version
+ = case "\
+ \ __GLASGOW_HASKELL__" of
+ ' ':n:ns -> n:'.':ns
+ ' ':m -> m