From: Ian Lynagh <igloo@earth.li>
Date: Sat, 14 Jun 2008 12:50:33 +0000 (+0000)
Subject: Fix the last warnings in DynFlags
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bae441b99a087de4998dfa88f7649de0338f3e79;p=ghc-hetmet.git

Fix the last warnings in DynFlags
We might want to put the values initSysTools finds in their own type,
rather than having them flattened into DynFlags
---

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 39fd33d..2d24aac 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -1,11 +1,4 @@
 
-{-# OPTIONS -fno-warn-missing-fields #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and fix
--- any warnings in the module. See
---     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
--- for details
-
 -----------------------------------------------------------------------------
 --
 -- Dynamic flags
@@ -546,7 +539,28 @@ defaultDynFlags =
         packageFlags            = [],
         pkgDatabase             = Nothing,
         pkgState                = panic "no package state yet: call GHC.setSessionDynFlags",
-  haddockOptions = Nothing,
+        wayNames                = panic "defaultDynFlags: No wayNames",
+        buildTag                = panic "defaultDynFlags: No buildTag",
+        rtsBuildTag             = panic "defaultDynFlags: No rtsBuildTag",
+        -- initSysTools fills all these in
+        ghcUsagePath            = panic "defaultDynFlags: No ghciUsagePath",
+        ghciUsagePath           = panic "defaultDynFlags: No ghciUsagePath",
+        topDir                  = panic "defaultDynFlags: No topDir",
+        systemPackageConfig     = panic "defaultDynFlags: No systemPackageConfig",
+        pgm_L                   = panic "defaultDynFlags: No pgm_L",
+        pgm_P                   = panic "defaultDynFlags: No pgm_P",
+        pgm_F                   = panic "defaultDynFlags: No pgm_F",
+        pgm_c                   = panic "defaultDynFlags: No pgm_c",
+        pgm_m                   = panic "defaultDynFlags: No pgm_m",
+        pgm_s                   = panic "defaultDynFlags: No pgm_s",
+        pgm_a                   = panic "defaultDynFlags: No pgm_a",
+        pgm_l                   = panic "defaultDynFlags: No pgm_l",
+        pgm_dll                 = panic "defaultDynFlags: No pgm_dll",
+        pgm_T                   = panic "defaultDynFlags: No pgm_T",
+        pgm_sysman              = panic "defaultDynFlags: No pgm_sysman",
+        pgm_windres             = panic "defaultDynFlags: No pgm_windres",
+        -- end of initSysTools values
+        haddockOptions = Nothing,
         flags = [
             Opt_ReadUserPackageConf,