From 0e41fdac5c4db6143d038773859cd4f15307d204 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Mon, 19 Jun 2023 14:52:38 -0600
Subject: [PATCH] cleanup

---
 src/Handler/Root.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Handler/Root.hs b/src/Handler/Root.hs
index f5a1759..a21a600 100644
--- a/src/Handler/Root.hs
+++ b/src/Handler/Root.hs
@@ -7,6 +7,5 @@ import Settings (AppSettings(registryHostname, marketplaceName))
 
 getRootR :: HandlerFor RegistryCtx ()
 getRootR =  do
-  url <- getsYesod $ registryHostname . appSettings
-  name <- getsYesod $ marketplaceName . appSettings
+  (url, name) <- getsYesod $ (registryHostname &&& marketplaceName) . appSettings
   redirect $ T.pack "https://marketplace.start9.com?api=" <> url <> T.pack "&name=" <> name
\ No newline at end of file