stopService :: T.Text -> IO ()
stopService service = shelly $ verbosely $ do
  run_ "svcadm" ["disable", service]
stopService :: T.Text -> IO ()
stopService service = shelly $ verbosely $ do
  run_ "svcadm" ["disable", service]
stopService service = shelly $ verbosely $ do
  run_ "svcadm" ["disable", service]