diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-06-14 13:38:48 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-06-14 13:38:48 +0000 |
| commit | 0079141c61f673039ccd879cd75174b33eb40b8f (patch) | |
| tree | c2a5acb06ae12ac98d05ce2291fc9cb0815b1c2e /compiler/main/DriverMkDepend.hs | |
| parent | 95b686571a3dc625b6e331417be24747c8552132 (diff) | |
| download | haskell-0079141c61f673039ccd879cd75174b33eb40b8f.tar.gz | |
Use a proper datatype, rather than pairs, for flags
Diffstat (limited to 'compiler/main/DriverMkDepend.hs')
| -rw-r--r-- | compiler/main/DriverMkDepend.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/compiler/main/DriverMkDepend.hs b/compiler/main/DriverMkDepend.hs index 052c138b26..a0ce1148ab 100644 --- a/compiler/main/DriverMkDepend.hs +++ b/compiler/main/DriverMkDepend.hs @@ -395,17 +395,17 @@ depEndMarker = "# DO NOT DELETE: End of Haskell dependencies" -- for compatibility with the old mkDependHS, we accept options of the form -- -optdep-f -optdep.depend, etc. -dep_opts :: [(String, OptKind IO)] +dep_opts :: [Flag IO] dep_opts = - [ ( "s", SepArg (consIORef v_Dep_suffixes) ) - , ( "f", SepArg (writeIORef v_Dep_makefile) ) - , ( "w", NoArg (writeIORef v_Dep_warnings False) ) + [ Flag "s" (SepArg (consIORef v_Dep_suffixes)) + , Flag "f" (SepArg (writeIORef v_Dep_makefile)) + , Flag "w" (NoArg (writeIORef v_Dep_warnings False)) - , ( "-include-prelude", NoArg (writeIORef v_Dep_include_pkg_deps True) ) + , 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 - , ( "-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) ) + , Flag "-include-pkg-deps" (NoArg (writeIORef v_Dep_include_pkg_deps True)) + , Flag "-exclude-module=" (Prefix (consIORef v_Dep_exclude_mods . mkModuleName)) + , Flag "x" (Prefix (consIORef v_Dep_exclude_mods . mkModuleName)) ] |