hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add mechanism to warn on new metadata versions, fixes #860

Browse Source
This commit is contained in:
Julian Ospald
2023-11-13 16:53:24 +08:00
parent c6aa5c3ed7
commit 2e5dee8e1a
5 changed files with 44 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/GHCup/Types/JSON.hs
View File

@@ -281,8 +281,9 @@ deriveJSON defaultOptions { fieldLabelModifier = removeLensFieldLabel } ''Versio
instance FromJSON GHCupInfo where
parseJSON = withObject "GHCupInfo" $ \o -> do
toolRequirements' <- o .:? "toolRequirements"
metadataUpdate <- o .:? "metadataUpdate"
ghcupDownloads' <- o .: "ghcupDownloads"
pure (GHCupInfo (fromMaybe mempty toolRequirements') ghcupDownloads')
pure (GHCupInfo (fromMaybe mempty toolRequirements') ghcupDownloads' metadataUpdate)
deriveToJSON defaultOptions { fieldLabelModifier = removeLensFieldLabel } ''GHCupInfo