X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FDriverMkDepend.hs;h=de0ce531b5dc92099969eb6712a6d99c29bc5cfb;hb=f8c52d7fde2d7408b4f734251c373f8d3e2c558e;hp=74ee4dcd1fd841c2ef8f46279b4b2b99bf66e088;hpb=a896a832ab7306da8c638df7f44619b3548bd518;p=ghc-hetmet.git

diff --git a/compiler/main/DriverMkDepend.hs b/compiler/main/DriverMkDepend.hs
index 74ee4dc..de0ce53 100644
--- a/compiler/main/DriverMkDepend.hs
+++ b/compiler/main/DriverMkDepend.hs
@@ -6,6 +6,13 @@
 --
 -----------------------------------------------------------------------------
 
+{-# OPTIONS -w #-}
+-- 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
+
 module DriverMkDepend (
 	doMkDependHS
   ) where
@@ -29,9 +36,6 @@ import SrcLoc
 import Data.List
 import CmdLineParser
 
-#if __GLASGOW_HASKELL__ <= 408
-import Panic		( catchJust, ioErrors )
-#endif
 import ErrUtils         ( debugTraceMsg, putMsg )
 
 import Data.IORef	( IORef, readIORef, writeIORef )
@@ -398,7 +402,11 @@ dep_opts =
    [ (  "s", 			SepArg (consIORef v_Dep_suffixes) )
    , (  "f", 			SepArg (writeIORef v_Dep_makefile) )
    , (  "w", 			NoArg (writeIORef v_Dep_warnings False) )
+
    , (  "-include-prelude",  	NoArg (writeIORef v_Dep_include_pkg_deps True) )
+	-- -include-prelude is the old name for -include-pkg-deps, kept around
+	-- for backward compatibility, but undocumented
+
    , (  "-include-pkg-deps",  	NoArg (writeIORef v_Dep_include_pkg_deps True) )
    , (  "-exclude-module=",     Prefix (consIORef v_Dep_exclude_mods . mkModuleName) )
    , (  "x",                    Prefix (consIORef v_Dep_exclude_mods . mkModuleName) )