Fix failure mode when metadata is garbage, fixes #921

2023-11-12 17:11:16 +08:00
parent 4132447e04
commit 6a86e9e77e
1 changed files with 1 additions and 1 deletions
--- a/lib/GHCup/Types/Stack.hs
+++ b/lib/GHCup/Types/Stack.hs
@@ -50,7 +50,7 @@ instance FromJSON SetupInfo where
    siSevenzExe <- o .:? "sevenzexe-info"
    siSevenzDll <- o .:? "sevenzdll-info"
    siMsys2     <- o .:? "msys2"          .!= mempty
-    siGHCs      <- o .:? "ghc"            .!= mempty
+    siGHCs      <- o .: "ghc"
    siStack     <- o .:? "stack"          .!= mempty
    pure SetupInfo {..}