Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 02:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

add query param of hostname

Browse Source
This commit is contained in:
Lucy Cifferello
2023-06-16 13:32:33 -06:00
parent a3efb4e90b
commit 550890070e
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Root.hs
View File

@@ -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"
getRootR = do
hostname <- getsYesod $ registryHostname . appSettings
redirect $ T.pack "https://marketplace.start9.com?api=" <> hostname