Start9/start-os
2
0
Fork 0
mirror of https://github.com/Start9Labs/start-os.git synced 2026-04-01 21:13:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

agent: errorT to errorC handling in eject disks

Browse Source
This commit is contained in:
Aaron Greenspan
2021-01-12 15:33:03 -07:00
committed by Aiden McClelland
parent c25295500b
commit 23077c6c6b
2 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -99,12 +99,12 @@ getDisksR :: Handler (JSONResponse [AppMgr.DiskInfo])
getDisksR = fmap JSONResponse . runM . handleS9ErrC $ listDisksLogic
deleteDisksR :: Handler ()
deleteDisksR = handleS9ErrT $ do
deleteDisksR = runM . handleS9ErrC $ do
logicalName <- lookupGetParam "logicalName" >>= orThrow400
runM . handleS9ErrC $ ejectDiskLogic logicalName
ejectDiskLogic logicalName
where
orThrow400 = \case
Nothing -> throwE $ ParamsE "logicalName"
Nothing -> throwError $ ParamsE "logicalName"
Just p -> pure p