Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-27 02:31:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

adds torrc endpoints

Browse Source
This commit is contained in:
Keagan McClelland
2019-12-27 02:21:24 -07:00
parent a54307ea5f
commit 16188bc898
5 changed files with 8 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Apps.hs
View File

@@ -46,6 +46,9 @@ getAgentR = getApp sysResourceDir "agent"
getAppMgrR :: Handler TypedContent
getAppMgrR = getApp sysResourceDir "appmgr"
getTorrcR :: Handler TypedContent
getTorrcR = getApp sysResourceDir "torrc"
getAppR :: S9PK -> Handler TypedContent
getAppR (S9PK appId) = getApp appResourceDir appId

3
src/Handler/Version.hs
View File

@@ -24,6 +24,9 @@ getVersionAgentR = getVersionWSpec sysResourceDir "agent"
getVersionAppMgrR :: Handler (Maybe AppVersionRes)
getVersionAppMgrR = getVersionWSpec sysResourceDir "appmgr"
getVersionTorrcR :: Handler (Maybe AppVersionRes)
getVersionTorrcR = getVersionWSpec sysResourceDir "torrc"
getVersionWSpec :: FilePath -> Text -> Handler (Maybe AppVersionRes)
getVersionWSpec rootDir appId = do
spec <- querySpecD mostRecentVersion <$> lookupGetParam "spec"