diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-06-14 12:50:33 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-06-14 12:50:33 +0000 |
| commit | bae441b99a087de4998dfa88f7649de0338f3e79 (patch) | |
| tree | db1a8a13cf8645d8fc4140b426f04e20d9c16c48 | |
| parent | 6b476a9ab73f1d768c548ddef900f9b9e4a0dd6b (diff) | |
| download | haskell-bae441b99a087de4998dfa88f7649de0338f3e79.tar.gz | |
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
| -rw-r--r-- | compiler/main/DynFlags.hs | 30 |
1 files changed, 22 insertions, 8 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 39fd33d56d..2d24aac143 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, |