Disable console when update is running

Author: Hiroto Shioi

cardano-launcher/src/Cardano/Shell/Update/Lib.hs

@@ -29,7 +29,8 @@ import           Distribution.System (OS (..), buildOS)
 import           Prelude (String)
 
 import           System.Directory (doesFileExist, removeFile)
-import           System.Process (proc, waitForProcess, withCreateProcess)
+import           System.Process (CreateProcess (..), StdStream (..), proc,
+                                 waitForProcess, withCreateProcess)
 
 #ifdef mingw32_HOST_OS
 import qualified Data.Text as T
@@ -52,14 +53,14 @@ import           Cardano.Shell.Types (LoggingDependencies (..))
 -- | Runner path, what we use to run the update/installer,
 -- arguments for the runner, and the actual update path for the installer.
 data UpdaterData = UpdaterData
-    { udUpdaterPath         :: !FilePath
+    { udUpdaterPath :: !FilePath
     -- ^ Path of the updater/installer runner. Examples:
     -- - /usr/bin/open
     -- - /bin/update-runner
     -- - Installer.bat (that we generate)
-    , udArgs                :: ![Text]
+    , udArgs        :: ![Text]
     -- ^ Arguments for the updater/installer.
-    , udArchivePath         :: !FilePath
+    , udArchivePath :: !FilePath
     -- ^ The update path of the update file. Examples:
     -- - /../daedalus.pkg
     -- - /../installer.sh
@@ -74,13 +75,18 @@ data UpdateOSPlatform
 
 -- | Conversion of the build OS to our definition.
 osToUpdateOSPlatform :: OS -> UpdateOSPlatform
-osToUpdateOSPlatform Windows    = WinOS
-osToUpdateOSPlatform _          = UnixOS
+osToUpdateOSPlatform Windows = WinOS
+osToUpdateOSPlatform _       = UnixOS
 
 -- | The way we should run the process normally.
 runDefaultUpdateProcess :: FilePath -> [String] -> IO ExitCode
-runDefaultUpdateProcess path args =
-    withCreateProcess (proc path args)
+runDefaultUpdateProcess path args = do
+    let process = (proc path args)
+            { std_in  = CreatePipe
+            , std_out = CreatePipe
+            , std_err = CreatePipe
+            }
+    withCreateProcess process
         $ \_in _out _err ph -> waitForProcess ph
 
 -- The function for executing the update.
@@ -97,13 +103,13 @@ instance Arbitrary UpdaterExists where
 
 -- | A simple isomorphic conversion from a more rich/descriptive type.
 updaterExistsToBool :: UpdaterExists -> Bool
-updaterExistsToBool UpdaterExists       = True
-updaterExistsToBool UpdaterDoesntExist  = False
+updaterExistsToBool UpdaterExists      = True
+updaterExistsToBool UpdaterDoesntExist = False
 
 -- | A simple isomorphic conversion to a more rich/descriptive type.
 boolToUpdaterExists :: Bool -> UpdaterExists
-boolToUpdaterExists True    = UpdaterExists
-boolToUpdaterExists False   = UpdaterDoesntExist
+boolToUpdaterExists True  = UpdaterExists
+boolToUpdaterExists False = UpdaterDoesntExist
 
 -- | The @Bool@ isomorphic type that signifies if we delete the archive/install
 -- file or not.
@@ -120,12 +126,12 @@ data UpdaterCommand
     deriving (Eq, Show)
 
 isUpdaterRunOnWin :: UpdaterCommand -> Bool
-isUpdaterRunOnWin (WindowsRunUpdate _ _)    = True
-isUpdaterRunOnWin _                         = False
+isUpdaterRunOnWin (WindowsRunUpdate _ _) = True
+isUpdaterRunOnWin _                      = False
 
 isUpdaterRunOnUnix :: UpdaterCommand -> Bool
-isUpdaterRunOnUnix (UnixRunUpdate _ _)  = True
-isUpdaterRunOnUnix _                    = False
+isUpdaterRunOnUnix (UnixRunUpdate _ _) = True
+isUpdaterRunOnUnix _                   = False
 
 -- | Interpret the small language into the "real" semantics.
 evaluateUpdaterCmdExitCode :: RunCmdFunc -> UpdaterCommand -> IO ExitCode
@@ -214,8 +220,8 @@ executeUpdater buildOS' updaterExist updaterData = do
     if updaterExist == UpdaterExists
         then
             case buildOS' of
-                WinOS   -> WindowsRunUpdate updaterPath (toS archivePath:args)
-                UnixOS  -> UnixRunUpdate    updaterPath (toS archivePath:args)
+                WinOS  -> WindowsRunUpdate updaterPath (toS archivePath:args)
+                UnixOS -> UnixRunUpdate    updaterPath (toS archivePath:args)
         else UpdaterFileMissing
 
 -- | Create @.bat@ file on given @FilePath@