fix new route setup

src/Application.hs

@@ -186,7 +186,7 @@ import Handler.Admin (
     postPkgUploadR,
  )
 import Handler.Eos (getEosR, getEosVersionR)
-import Handler.Root(getRootR)
+import Handler.Root(getRootR, getMarketplaceR)
 import Handler.Package
 import Lib.Ssl (
     doesSslNeedRenew,

src/Handler/Root.hs

@@ -5,14 +5,15 @@ import Foundation
 import qualified Data.Text as T
 import Settings (AppSettings(registryHostname, marketplaceName))
 import Network.Wai (Request(pathInfo))
+import Lib.Types.Core (PkgId)
 
 getRootR :: HandlerFor RegistryCtx ()
 getRootR =  do
   (url, name) <- getsYesod $ (registryHostname &&& marketplaceName) . appSettings
   redirect $ T.pack "https://marketplace.start9.com?api=" <> url <> T.pack "&name=" <> name
 
-getMarketplaceR :: HandlerFor RegistryCtx ()
-getMarketplaceR = do
+getMarketplaceR :: PkgId -> HandlerFor RegistryCtx ()
+getMarketplaceR _ = do
   (url, name) <- getsYesod $ (registryHostname &&& marketplaceName) . appSettings
   req <- waiRequest
   pathSegments <- pure $ pathInfo req