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