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