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: logicalName to queryparams instead of path

Browse Source
This commit is contained in:
Aaron Greenspan
2021-01-12 14:57:09 -07:00
committed by Aiden McClelland
parent 4da4fd66a3
commit c25295500b
3 changed files with 14 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -95,11 +95,17 @@ postRestoreBackupR appId = disableEndpointOnFailedUpdate $ do
& handleS9ErrC
& runM
getListDisksR :: Handler (JSONResponse [AppMgr.DiskInfo])
getListDisksR = fmap JSONResponse . runM . handleS9ErrC $ listDisksLogic
getDisksR :: Handler (JSONResponse [AppMgr.DiskInfo])
getDisksR = fmap JSONResponse . runM . handleS9ErrC $ listDisksLogic
deleteEjectDiskR :: Text -> Handler ()
deleteEjectDiskR t = runM . handleS9ErrC $ ejectDiskLogic t
deleteDisksR :: Handler ()
deleteDisksR = handleS9ErrT $ do
logicalName <- lookupGetParam "logicalName" >>= orThrow400
runM . handleS9ErrC $ ejectDiskLogic logicalName
where
orThrow400 = \case
Nothing -> throwE $ ParamsE "logicalName"
Just p -> pure p
-- Logic