{-# OPTIONS -#include "hschooks.h" #-}
-----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.55 2001/05/28 03:31:19 sof Exp $
+-- $Id: DriverFlags.hs,v 1.57 2001/06/13 15:50:25 rrt Exp $
--
-- Driver flags
--
import DriverState
import DriverUtil
-import TmpFiles ( v_TmpDir, kludgedSystem )
+import TmpFiles ( v_TmpDir )
import CmdLineOpts
import Config
import Util
, ( "osuf" , HasArg (writeIORef v_Object_suf . Just) )
, ( "hcsuf" , HasArg (writeIORef v_HC_suf . Just) )
, ( "hisuf" , HasArg (writeIORef v_Hi_suf) )
+ , ( "hidir" , HasArg (writeIORef v_Hi_dir . Just) )
, ( "buildtag" , HasArg (writeIORef v_Build_tag) )
, ( "tmpdir" , HasArg (writeIORef v_TmpDir . (++ "/")) )
, ( "ohi" , HasArg (writeIORef v_Output_hi . Just) )
unless n $ do
-- and run it!
- exit_code <- kludgedSystem cmd phase_name
+ exit_code <- system cmd
if exit_code /= ExitSuccess
then throwDyn (PhaseFailed phase_name exit_code)