[project @ 2001-07-11 14:51:49 by sof]

runSomething: don't export it

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 47ad974..71e0e8e 100644 (file)
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -37,9 +37,8 @@ module SysTools (
 
        -- Misc
        showGhcUsage,           -- IO ()        Shows usage message and exits
-       getSysMan,              -- IO String    Parallel system only
+       getSysMan               -- IO String    Parallel system only
 
-       runSomething    -- ToDo: make private
  ) where
 
 import DriverUtil
@@ -69,8 +68,6 @@ import List           ( isSuffixOf )
 
 #include "HsVersions.h"
 
-{-# DEPRECATED runSomething "runSomething should be private to SysTools" #-}
-
 \end{code}