Start9/start-os
2
0
Fork 0
mirror of https://github.com/Start9Labs/start-os.git synced 2026-04-01 21:13:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

agent: adds ui to app installed preview

Browse Source
This commit is contained in:
Aaron Greenspan
2021-01-11 12:39:02 -07:00
committed by Aiden McClelland
parent 3a63dab586
commit 0962a20852
3 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
agent/src/Lib/External/AppManifest.hs vendored
View File

@@ -64,6 +64,9 @@ data AppManifest (n :: Nat) where
, appManifestV0Dependencies :: HM.HashMap AppId VersionRange
} -> AppManifest 0
hasUi :: forall n. AppManifest n -> Bool
hasUi AppManifestV0 {..} = isJust $ HM.lookup 80 appManifestV0PortMapping
instance FromJSON (Some1 AppManifest) where
parseJSON = withObject "App Manifest" $ \o -> do
o .: "compat" >>= \case