X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FCmdLineOpts.lhs;h=2d105bd8b37a95f78e51d02b13bbc06f215b6aed;hb=39262efa1c066d97547ac72d8bd16a145ac3f359;hp=e3a5f2267263a8209d40f1a72bbb0fc111fbc47e;hpb=cc471d7b068eebc8f8a02879bed71195d6661718;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index e3a5f22..2d105bd 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -313,7 +313,7 @@ opt_D_dump_ds			= opt_D_dump_most || lookUp  SLIT("-ddump-ds")
 opt_D_dump_flatC		= opt_D_dump_all  || lookUp  SLIT("-ddump-flatC")
 opt_D_dump_foreign		= opt_D_dump_most || lookUp  SLIT("-ddump-foreign-stubs")
 opt_D_dump_inlinings		= opt_D_dump_all  || lookUp  SLIT("-ddump-inlinings")
-opt_D_dump_occur_anal		= opt_D_dump_most || lookUp  SLIT("-ddump-occur-anal")
+opt_D_dump_occur_anal		= opt_D_dump_all  || lookUp  SLIT("-ddump-occur-anal")
 opt_D_dump_parsed		= opt_D_dump_most || lookUp  SLIT("-ddump-parsed")
 opt_D_dump_realC		= opt_D_dump_all  || lookUp  SLIT("-ddump-realC")
 opt_D_dump_rn			= opt_D_dump_most || lookUp  SLIT("-ddump-rn")