From dd4d8b285673ef844b3aef087688dda3739d0f63 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Fri, 16 Jun 2023 14:59:00 -0600
Subject: [PATCH] add name to root query params

---
 src/Handler/Root.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Handler/Root.hs b/src/Handler/Root.hs
index 0137ef8..f5a1759 100644
--- a/src/Handler/Root.hs
+++ b/src/Handler/Root.hs
@@ -3,9 +3,10 @@ import Startlude
 import Yesod
 import Foundation
 import qualified Data.Text as T
-import Settings (AppSettings(registryHostname))
+import Settings (AppSettings(registryHostname, marketplaceName))
 
 getRootR :: HandlerFor RegistryCtx ()
 getRootR =  do
-  hostname <- getsYesod $ registryHostname . appSettings
-  redirect $ T.pack "https://marketplace.start9.com?api=" <> hostname
\ No newline at end of file
+  url <- getsYesod $ registryHostname . appSettings
+  name <- getsYesod $ marketplaceName . appSettings
+  redirect $ T.pack "https://marketplace.start9.com?api=" <> url <> T.pack "&name=" <> name
\ No newline at end of file