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

fix path and temp icon for service

Browse Source
This commit is contained in:
Lucy Cifferello
2021-07-05 16:00:45 -04:00
parent 301d1a5979
commit 60160758a0
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/Handler/Marketplace.hs
View File

@@ -199,7 +199,10 @@ getServiceR = do
sendResponseStatus status500 ("Internal Server Error" :: Text) sendResponseStatus status500 ("Internal Server Error" :: Text)
Right (a :: ServiceManifest) -> pure a Right (a :: ServiceManifest) -> pure a
d <- traverse (mapDependencyMetadata appsDir appMgrDir domain) (HM.toList $ serviceManifestDependencies manifest) d <- traverse (mapDependencyMetadata appsDir appMgrDir domain) (HM.toList $ serviceManifestDependencies manifest)
icon <- decodeIcon appMgrDir appsDir appExt let depPath = appsDir </> toS appId </> show version
-- @TODO uncomment when sdk icon working
-- icon <- decodeIcon appMgrDir depPath appExt
let icon = [i|https://#{domain}/icons/#{appId}.png|]
addPackageHeader appMgrDir appDir appExt addPackageHeader appMgrDir appDir appExt
pure $ ServiceRes pure $ ServiceRes
{ serviceResIcon = icon { serviceResIcon = icon
@@ -221,9 +224,10 @@ mapDependencyMetadata appsDir appmgrPath domain (appId, depInfo) = do
let depPath = appsDir </> toS appId </> show version let depPath = appsDir </> toS appId </> show version
-- @TODO uncomment when sdk icon working -- @TODO uncomment when sdk icon working
-- icon <- decodeIcon appmgrPath depPath ext -- icon <- decodeIcon appmgrPath depPath ext
let icon = [i|https://#{domain}/icons/#{appId}.png|]
pure (appId, DependencyInfo pure (appId, DependencyInfo
{ dependencyInfoTitle = appId { dependencyInfoTitle = appId
, dependencyInfoIcon = [i|https://#{domain}/icons/#{appId}.png|] , dependencyInfoIcon = icon
}) })