make index package arches optional

This commit is contained in:
Lucy Cifferello
2023-07-28 19:19:07 -04:00
parent d2dadbc35b
commit 8b7d461c21

View File

@@ -221,7 +221,7 @@ instance FromJSON IndexPkgReq where
parseJSON = withObject "Index Package Request" $ \o -> do
indexPkgReqId <- o .: "id"
indexPkgReqVersion <- o .: "version"
indexPkgReqArches <- o .: "arches"
indexPkgReqArches <- o .:? "arches"
pure IndexPkgReq{..}
instance ToJSON IndexPkgReq where
toJSON IndexPkgReq{..} = object ["id" .= indexPkgReqId, "version" .= indexPkgReqVersion]