From: simonmar <unknown>
Date: Mon, 29 Oct 2001 13:25:19 +0000 (+0000)
Subject: [project @ 2001-10-29 13:25:19 by simonmar]
X-Git-Tag: Approximately_9120_patches~682
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d4ab79e5cbc5a85b9a589b3574e94a9f12bbf874;p=ghc-hetmet.git

[project @ 2001-10-29 13:25:19 by simonmar]
Add --print-libdir flag
---

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index 65080f2..fc78b68 100644
--- a/ghc/compiler/main/DriverFlags.hs
+++ b/ghc/compiler/main/DriverFlags.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -#include "hschooks.h" #-}
 
 -----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.77 2001/10/26 00:53:27 sof Exp $
+-- $Id: DriverFlags.hs,v 1.78 2001/10/29 13:25:19 simonmar Exp $
 --
 -- Driver flags
 --
@@ -22,7 +22,7 @@ module DriverFlags (
 
 import DriverState
 import DriverUtil
-import SysTools		( setTmpDir, setPgm, setDryRun, showGhcUsage )
+import SysTools
 import CmdLineOpts
 import Config
 import Util
@@ -152,16 +152,15 @@ arg_ok (AnySuffixPred p _)  rest arg = p arg
 -- flags further down the list with the same prefix.
 
 static_flags = 
-  [  ------- help -------------------------------------------------------
-     ( "?"    		, NoArg showGhcUsage)
-  ,  ( "-help"		, NoArg showGhcUsage)
-  
-
-      ------- version ----------------------------------------------------
-  ,  ( "-version"	 , NoArg (do hPutStrLn stdout (cProjectName
+  [  ------- help / version ----------------------------------------------
+     ( "?"    		 , NoArg showGhcUsage)
+  ,  ( "-help"	 	 , NoArg showGhcUsage)
+  ,  ( "-print-libdir"   , NoArg (do getTopDir >>= putStrLn
+				     exitWith ExitSuccess))  
+  ,  ( "-version"	 , NoArg (do putStrLn (cProjectName
 				      ++ ", version " ++ cProjectVersion)
 				     exitWith ExitSuccess))
-  ,  ( "-numeric-version", NoArg (do hPutStrLn stdout cProjectVersion
+  ,  ( "-numeric-version", NoArg (do putStrLn cProjectVersion
 				     exitWith ExitSuccess))
 
       ------- verbosity ----------------------------------------------------