From 5b248013e57e7fdbaf7089e047bcadbf64b2aaaf Mon Sep 17 00:00:00 2001 From: Keagan McClelland Date: Mon, 11 Jan 2021 12:56:16 -0700 Subject: [PATCH] removed redundant code --- agent/src/Handler/Backups.hs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/agent/src/Handler/Backups.hs b/agent/src/Handler/Backups.hs index 0b0cff388..ae99b2134 100644 --- a/agent/src/Handler/Backups.hs +++ b/agent/src/Handler/Backups.hs @@ -207,14 +207,11 @@ listDisksLogic :: (Has (Error S9Error) sig m, MonadIO m) => m [AppMgr.DiskInfo] listDisksLogic = runExceptT AppMgr.diskShow >>= liftEither ejectDiskLogic :: (Has (Error S9Error) sig m, MonadIO m) => Text -> m () -ejectDiskLogic t = runExceptT (diskEject t) >>= liftEither - -diskEject :: MonadIO m => Text -> S9ErrT m () -diskEject t = do +ejectDiskLogic t = do (ec, _) <- AppMgr.readProcessInheritStderr "eject" [toS t] "" case ec of - ExitSuccess -> pure () - ExitFailure n -> throwE $ EjectE n + ExitSuccess -> pure () + ExitFailure n -> throwError $ EjectE n insertBackupResult :: MonadIO m => AppId -> Version -> Bool -> SqlPersistT m (Entity BackupRecord) insertBackupResult appId appVersion succeeded = do