diff --git a/agent/src/Handler/Status.hs b/agent/src/Handler/Status.hs index 91784a7c6..e98c3f88c 100644 --- a/agent/src/Handler/Status.hs +++ b/agent/src/Handler/Status.hs @@ -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 { .. } diff --git a/agent/src/Handler/Types/V0/Specs.hs b/agent/src/Handler/Types/V0/Specs.hs index 954cfff75..6fd69c8fb 100644 --- a/agent/src/Handler/Types/V0/Specs.hs +++ b/agent/src/Handler/Types/V0/Specs.hs @@ -16,6 +16,7 @@ data SpecsRes = SpecsRes , specsNetworkId :: Text , specsAgentVersion :: Version , specsTorAddress :: Text + , specsLanAddress :: Text } deriving (Eq, Show) @@ -23,6 +24,7 @@ instance ToJSON SpecsRes where toJSON SpecsRes {..} = object [ "EmbassyOS Version" .= specsAgentVersion , "Tor Address" .= specsTorAddress + , "LAN Address" .= specsLanAddress , "Network ID" .= specsNetworkId , "CPU" .= specsCPU , "Memory" .= specsMem @@ -33,6 +35,7 @@ instance ToJSON SpecsRes where . fold $ [ "EmbassyOS Version" .= specsAgentVersion , "Tor Address" .= specsTorAddress + , "LAN Address" .= specsLanAddress , "Network ID" .= specsNetworkId , "CPU" .= specsCPU , "Memory" .= specsMem diff --git a/agent/src/Handler/V0.hs b/agent/src/Handler/V0.hs index b27ac09cf..d0451e657 100644 --- a/agent/src/Handler/V0.hs +++ b/agent/src/Handler/V0.hs @@ -93,6 +93,7 @@ getSpecs settings = do specsDisk <- fmap show . metricDiskSize <$> getDfMetrics specsNetworkId <- runM $ injectFilesystemBaseFromContext settings getStart9AgentHostname specsTorAddress <- runM $ injectFilesystemBaseFromContext settings getAgentHiddenServiceUrl + specsLanAddress <- fmap (<> ".local") <$> runM $ injectFilesystemBaseFromContext settings getStart9AgentHostname let specsAgentVersion = agentVersion pure $ SpecsRes { .. }