Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-30 19:54:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

handle redirecting to marketplace paths for brochure

Browse Source
This commit is contained in:
Lucy Cifferello
2023-11-08 10:00:09 -07:00
parent 3a7d9d5057
commit 2df99d40e9
2 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
config/routes
View File

@@ -1,4 +1,5 @@
/ RootR GET / RootR GET
/marketplace/#PkgId MarketplaceR GET
-- EOS API V0 -- EOS API V0
/eos/v0/latest EosVersionR GET -- get eos information /eos/v0/latest EosVersionR GET -- get eos information

11
src/Handler/Root.hs
View File

@@ -4,8 +4,17 @@ import Yesod
import Foundation import Foundation
import qualified Data.Text as T import qualified Data.Text as T
import Settings (AppSettings(registryHostname, marketplaceName)) import Settings (AppSettings(registryHostname, marketplaceName))
import Network.Wai (Request(pathInfo))
getRootR :: HandlerFor RegistryCtx () getRootR :: HandlerFor RegistryCtx ()
getRootR = do getRootR = do
(url, name) <- getsYesod $ (registryHostname &&& marketplaceName) . appSettings (url, name) <- getsYesod $ (registryHostname &&& 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
getMarketplaceR :: HandlerFor RegistryCtx ()
getMarketplaceR = do
(url, name) <- getsYesod $ (registryHostname &&& marketplaceName) . appSettings
req <- waiRequest
pathSegments <- pure $ pathInfo req
let pathPiece = "/" <> T.intercalate "/" pathSegments
redirect $ T.pack "https://marketplace.start9.com" <> pathPiece <> "?api=" <> url <> T.pack "&name=" <> name