REF get rid of dead code

bin/xmonad.hs

@@ -203,7 +203,6 @@ evalConf db@DBusState { dbSysClient = cl } = do
     startDBusInterfaces fs = mapM_ (\f -> executeSometimes $ f $ dbSesClient db)
       $ fsDBusExporters fs
     startChildDaemons fs = do
-      -- (h, p) <- io $ spawnPipe "xmobar"
       (h, _, _, p) <- io $ createProcess $ (shell "xmobar") { std_in = CreatePipe }
       io $ case h of
         Just h' -> hSetBuffering h' LineBuffering

lib/XMonad/Internal/Command/Desktop.hs

@@ -257,7 +257,6 @@ runNetAppDaemon cl = Sometimes "network applet" xpfVPN
   where
     tree = toAnd_ app $ Bus networkManagerPkgs networkManagerBus
     app = DBusIO $ sysExe [Package Official "network-manager-applet"] "nm-applet"
-    -- cmd _ = snd <$> spawnPipe "nm-applet"
     cmd _ = spawnProcess "nm-applet" []
 
 runToggleBluetooth :: Maybe SysClient -> SometimesX

lib/XMonad/Internal/Command/Power.hs

@@ -45,7 +45,6 @@ import           System.IO.Error
 import           System.Process              (ProcessHandle, spawnProcess)
 
 import           XMonad.Core
--- import           XMonad.Internal.Process     (spawnPipeArgs)
 import           XMonad.Internal.Shell
 import qualified XMonad.Internal.Theme       as XT
 import           XMonad.Prompt
@@ -96,7 +95,6 @@ runAutolock = sometimesIO_ "automatic screen lock" "xss-lock" tree cmd
   where
     tree = And_ (Only_ $ sysExe [Package Official "xss-lock"] "xss-lock")
       $ Only_ $ IOSometimes_ runScreenLock
-    -- cmd = snd <$> spawnPipeArgs "xss-lock" ["--ignore-sleep", "screenlock"]
     cmd = spawnProcess "xss-lock" ["--ignore-sleep", "screenlock"]
 
 --------------------------------------------------------------------------------

lib/XMonad/Internal/Process.hs

@@ -4,9 +4,9 @@
 module XMonad.Internal.Process
   ( waitUntilExit
   , killHandle
-  , spawnPipe'
+  -- , spawnPipe'
-  , spawnPipe
+  -- , spawnPipe
-  , spawnPipeArgs
+  -- , spawnPipeArgs
   , createProcess'
   , readCreateProcessWithExitCode'
   , proc'
@@ -82,15 +82,15 @@ spawn = io . void . createProcess' . shell'
 spawnAt :: MonadIO m => FilePath -> String -> m ()
 spawnAt fp cmd = io $ void $ createProcess' $ (shell' cmd) { cwd = Just fp }
 
-spawnPipe' :: CreateProcess -> IO (Handle, ProcessHandle)
+-- spawnPipe' :: CreateProcess -> IO (Handle, ProcessHandle)
-spawnPipe' cp = do
+-- spawnPipe' cp = do
-  -- ASSUME creating a pipe will always succeed in making a Just Handle
+--   -- ASSUME creating a pipe will always succeed in making a Just Handle
-  (Just h, _, _, p) <- createProcess' $ cp { std_in = CreatePipe }
+--   (Just h, _, _, p) <- createProcess' $ cp { std_in = CreatePipe }
-  hSetBuffering h LineBuffering
+--   hSetBuffering h LineBuffering
-  return (h, p)
+--   return (h, p)
 
-spawnPipe :: String -> IO (Handle, ProcessHandle)
+-- spawnPipe :: String -> IO (Handle, ProcessHandle)
-spawnPipe = spawnPipe' . shell
+-- spawnPipe = spawnPipe' . shell
 
-spawnPipeArgs :: FilePath -> [String] -> IO (Handle, ProcessHandle)
+-- spawnPipeArgs :: FilePath -> [String] -> IO (Handle, ProcessHandle)
-spawnPipeArgs cmd = spawnPipe' . proc cmd
+-- spawnPipeArgs cmd = spawnPipe' . proc cmd