agent: adds lan address to server specs

This commit is contained in:
Aaron Greenspan
2021-02-04 17:33:55 -07:00
committed by Aiden McClelland
parent e1a6a3d9ed
commit 3065323e79
3 changed files with 5 additions and 0 deletions

View File

@@ -52,6 +52,7 @@ getSpecsR = handleS9ErrT $ do
specsDisk <- fmap show . metricDiskSize <$> getDfMetrics
specsNetworkId <- lift . runM . injectFilesystemBaseFromContext settings $ getStart9AgentHostname
specsTorAddress <- lift . runM . injectFilesystemBaseFromContext settings $ getAgentHiddenServiceUrl
specsLanAddress <- fmap ( <> ".local" ) . lift . runM . injectFilesystemBaseFromContext settings $ getStart9AgentHostname
let specsAgentVersion = agentVersion
returnJsonEncoding SpecsRes { .. }