Merge pull request #4784 from commercialhaskell/no-null-compiler

No null compiler in snapshot output
commercialhaskell · Apr 29, 2019 · b5da6a8 · b5da6a8
2 parents 78a113a + 92512df
commit b5da6a8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/subs/pantry/src/Pantry/Types.hs b/subs/pantry/src/Pantry/Types.hs
@@ -2118,7 +2118,7 @@ data SnapshotLayer = SnapshotLayer
 instance ToJSON SnapshotLayer where
   toJSON snap = object $ concat
     [ ["resolver" .= slParent snap]
-    , ["compiler" .= slCompiler snap]
+    , maybe [] (\compiler -> ["compiler" .= compiler]) (slCompiler snap)
     , ["packages" .= slLocations snap]
     , if Set.null (slDropPackages snap) then [] else ["drop-packages" .= Set.map CabalString (slDropPackages snap)]
     , if Map.null (slFlags snap) then [] else ["flags" .= fmap toCabalStringMap (toCabalStringMap (slFlags snap))]