Start9/start-os
2
0
Fork 0
mirror of https://github.com/Start9Labs/start-os.git synced 2026-03-31 04:23:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

removed redundant code

Browse Source
This commit is contained in:
Keagan McClelland
2021-01-11 12:56:16 -07:00
committed by Aiden McClelland
parent 865bb12f31
commit 5b248013e5
1 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
agent/src/Handler/Backups.hs
View File

@@ -207,14 +207,11 @@ listDisksLogic :: (Has (Error S9Error) sig m, MonadIO m) => m [AppMgr.DiskInfo]
listDisksLogic = runExceptT AppMgr.diskShow >>= liftEither listDisksLogic = runExceptT AppMgr.diskShow >>= liftEither
ejectDiskLogic :: (Has (Error S9Error) sig m, MonadIO m) => Text -> m () ejectDiskLogic :: (Has (Error S9Error) sig m, MonadIO m) => Text -> m ()
ejectDiskLogic t = runExceptT (diskEject t) >>= liftEither ejectDiskLogic t = do
diskEject :: MonadIO m => Text -> S9ErrT m ()
diskEject t = do
(ec, _) <- AppMgr.readProcessInheritStderr "eject" [toS t] "" (ec, _) <- AppMgr.readProcessInheritStderr "eject" [toS t] ""
case ec of case ec of
ExitSuccess -> pure () ExitSuccess -> pure ()
ExitFailure n -> throwE $ EjectE n ExitFailure n -> throwError $ EjectE n
insertBackupResult :: MonadIO m => AppId -> Version -> Bool -> SqlPersistT m (Entity BackupRecord) insertBackupResult :: MonadIO m => AppId -> Version -> Bool -> SqlPersistT m (Entity BackupRecord)
insertBackupResult appId appVersion succeeded = do insertBackupResult appId appVersion succeeded = do