#ifdef JAVA
import JavaGen ( javaGen )
-import OccurAnal ( occurAnalyseBinds )
import qualified PrintJava
import OccurAnal ( occurAnalyseBinds )
#endif
; showPass dflags "CodeOutput"
; let filenm = dopt_OutName dflags
; stubs_exist <- outputForeignStubs dflags foreign_stubs
- ; case dopt_HscLang dflags of {
+ ; case dopt_HscTarget dflags of {
HscInterpreted -> return ();
HscAsm -> outputAsm dflags filenm flat_abstractC;
HscC -> outputC dflags filenm flat_abstractC stubs_exist
-- we need the #includes from the rts package for the stub files
let rtsid = rtsPackageId (pkgState dflags)
rts_includes
- | Just pid <- rtsid =
+ | ExtPackage pid <- rtsid =
let rts_pkg = getPackageDetails (pkgState dflags) pid in
concatMap mk_include (includes rts_pkg)
| otherwise = []