X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FDriverMkDepend.hs;h=ffb89c15d96294d11fe899061ca81b9792b832e3;hb=28a5c73a83e8f27c31cad02da07c81e4e6764303;hp=a0ce1148ab3b979931292ce990dfc76b0e389831;hpb=0079141c61f673039ccd879cd75174b33eb40b8f;p=ghc-hetmet.git diff --git a/compiler/main/DriverMkDepend.hs b/compiler/main/DriverMkDepend.hs index a0ce114..ffb89c1 100644 --- a/compiler/main/DriverMkDepend.hs +++ b/compiler/main/DriverMkDepend.hs @@ -1,3 +1,5 @@ +{-# OPTIONS -fno-cse #-} +-- -fno-cse is needed for GLOBAL_VAR's to behave properly ----------------------------------------------------------------------------- -- @@ -38,7 +40,7 @@ import System.Exit ( ExitCode(..), exitWith ) import System.Directory import System.FilePath import System.IO -import SYSTEM_IO_ERROR ( isEOFError ) +import System.IO.Error ( isEOFError ) import Control.Monad ( when ) import Data.Maybe ( isJust ) @@ -398,14 +400,20 @@ depEndMarker = "# DO NOT DELETE: End of Haskell dependencies" dep_opts :: [Flag IO] dep_opts = [ Flag "s" (SepArg (consIORef v_Dep_suffixes)) + Supported , Flag "f" (SepArg (writeIORef v_Dep_makefile)) + Supported , Flag "w" (NoArg (writeIORef v_Dep_warnings False)) + Supported , Flag "-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 + (Deprecated "Use --include-pkg-deps instead") , Flag "-include-pkg-deps" (NoArg (writeIORef v_Dep_include_pkg_deps True)) + Supported , Flag "-exclude-module=" (Prefix (consIORef v_Dep_exclude_mods . mkModuleName)) + Supported , Flag "x" (Prefix (consIORef v_Dep_exclude_mods . mkModuleName)) + Supported ] +