From 2d10220e5298a5e70194f3e93af6478647f99597 Mon Sep 17 00:00:00 2001 From: Aaron Greenspan Date: Tue, 12 Jan 2021 11:28:04 -0700 Subject: [PATCH] agent: fixes manifest parsing --- agent/src/Lib/External/AppManifest.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/agent/src/Lib/External/AppManifest.hs b/agent/src/Lib/External/AppManifest.hs index c3636076b..fce14cbe7 100644 --- a/agent/src/Lib/External/AppManifest.hs +++ b/agent/src/Lib/External/AppManifest.hs @@ -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