From 30dd62285b10520ca8145b4f75219fd3d6bff751 Mon Sep 17 00:00:00 2001
From: Aaron Greenspan <afg419@gmail.com>
Date: Fri, 5 Feb 2021 10:33:16 -0700
Subject: [PATCH] Update agent/src/Handler/V0.hs

Co-authored-by: Keagan McClelland <keagan.mcclelland@gmail.com>
---
 agent/src/Handler/V0.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/agent/src/Handler/V0.hs b/agent/src/Handler/V0.hs
index d0451e657..4d59df2c9 100644
--- a/agent/src/Handler/V0.hs
+++ b/agent/src/Handler/V0.hs
@@ -93,7 +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
+    specsLanAddress <- fmap (<> ".local") . runM $ injectFilesystemBaseFromContext settings getStart9AgentHostname
 
     let specsAgentVersion = agentVersion
     pure $ SpecsRes { .. }