15 lines
619 B
Haskell
15 lines
619 B
Haskell
module System.Serverman.Actions.Start (startService) where
|
|
import System.Serverman.Utils
|
|
import System.Serverman.Actions.Env
|
|
import System.Serverman.Actions.Install
|
|
import System.Serverman.Services
|
|
|
|
import Control.Monad.State
|
|
|
|
startService :: Service -> OS -> App ()
|
|
startService service os
|
|
| os == Mac = liftIO $ putStrLn $ "Couldn't start " ++ package service os ++ " automatically. If you encounter any problems, make sure it is running."
|
|
| otherwise = executeRoot "systemctl" ["start", package service os] "" True
|
|
>> execute "sleep" ["5s"] "" True
|
|
>> return ()
|