handleCommand :: String -> IO ()
handleCommand "stop tomcat" = do
  stopService "tomcat"
handleCommand :: String -> IO ()
handleCommand "stop tomcat" = do
  stopService "tomcat"
handleCommand "stop tomcat" = do
  stopService "tomcat"