mirror of
https://github.com/Start9Labs/registry.git
synced 2026-03-26 02:11:53 +00:00
11 lines
334 B
Haskell
11 lines
334 B
Haskell
module Handler.Root where
|
|
import Startlude
|
|
import Yesod
|
|
import Foundation
|
|
import qualified Data.Text as T
|
|
import Settings (AppSettings(registryHostname))
|
|
|
|
getRootR :: HandlerFor RegistryCtx ()
|
|
getRootR = do
|
|
hostname <- getsYesod $ registryHostname . appSettings
|
|
redirect $ T.pack "https://marketplace.start9.com?api=" <> hostname |