fix toJson instances for hashmap keys

This commit is contained in:
Lucy Cifferello
2021-07-05 17:18:40 -04:00
committed by Keagan McClelland
parent aab1856c6c
commit 1c069ca6f8
2 changed files with 17 additions and 7 deletions

View File

@@ -197,7 +197,7 @@ instance ToJSON ServiceManifest where
, "version" .= serviceManifestVersion
, "description" .= object ["short" .= serviceManifestDescriptionShort, "long" .= serviceManifestDescriptionLong]
, "release-notes" .= serviceManifestReleaseNotes
, "alerts" .= serviceManifestAlerts
, "alerts" .= object [ t .= v | (k,v) <- HM.toList serviceManifestAlerts, let (String t) = toJSON k ]
, "dependencies" .= serviceManifestDependencies
]