Add a WARNING pragma

[ghc-hetmet.git] / compiler / main / GHC.hs

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index 39cb9b5..87d07de 100644 (file)
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -401,7 +401,7 @@ guessOutputFile s = modifySession s $ \env ->
         -- we must add the .exe extention unconditionally here, otherwise
         -- when name has an extension of its own, the .exe extension will
         -- not be added by DriverPipeline.exeFileName.  See #2248
-        name_exe = name <.> "exe"
+        name_exe = fmap (<.> "exe") name
 #else
         name_exe = name
 #endif
@@ -994,7 +994,7 @@ mkModGuts coreModule = ModGuts {
   mg_rules = [],
   mg_binds = cm_binds coreModule,
   mg_foreign = NoStubs,
-  mg_deprecs = NoDeprecs,
+  mg_warns = NoWarnings,
   mg_hpc_info = emptyHpcInfo False,
   mg_modBreaks = emptyModBreaks,
   mg_vect_info = noVectInfo,