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

agent: fixes manifest parsing

Browse Source
This commit is contained in:
Aaron Greenspan
2021-01-12 11:28:04 -07:00
committed by Aiden McClelland
parent 34d52d063e
commit 2d10220e52
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -68,10 +68,8 @@ 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
("v0" :: Text) -> Some1 (SNat @0) <$> parseJSON (Object o)
compat -> fail $ "Unknown Manifest Version: " <> toS compat
parseJSON = withObject "App Manifest" $ \o -> Some1 (SNat @0) <$> parseJSON (Object o)
instance FromJSON (AppManifest 0) where
parseJSON = withObject "App Manifest V0" $ \o -> do