#include "HsVersions.h"
import DynFlags
-import CoreLint
+import CoreMonad
import CoreSyn
import CoreUtils
import Id
showPass dflags "Constructed Product analysis" ;
let { binds_plus_cpr = do_prog binds } ;
endPass dflags "Constructed Product analysis"
- Opt_D_dump_cpranal binds_plus_cpr
+ Opt_D_dump_cpranal binds_plus_cpr []
return binds_plus_cpr
}
where