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

cleanup

Browse Source
This commit is contained in:
Lucy Cifferello
2023-06-19 14:52:38 -06:00
parent dd4d8b2856
commit 0e41fdac5c
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Root.hs
View File

@@ -7,6 +7,5 @@ import Settings (AppSettings(registryHostname, marketplaceName))
getRootR :: HandlerFor RegistryCtx () getRootR :: HandlerFor RegistryCtx ()
getRootR = do getRootR = do
url <- getsYesod $ registryHostname . appSettings (url, name) <- getsYesod $ (registryHostname &&& marketplaceName) . appSettings
name <- getsYesod $ marketplaceName . appSettings
redirect $ T.pack "https://marketplace.start9.com?api=" <> url <> T.pack "&name=" <> name redirect $ T.pack "https://marketplace.start9.com?api=" <> url <> T.pack "&name=" <> name