Add missing github-users in serialization

This commit is contained in:
Michael Snoyman 2014-12-15 08:22:26 +02:00
parent e892e6effd
commit 4e06135f38

View File

@ -41,6 +41,7 @@ instance ToJSON BuildPlan where
[ "system-info" .= bpSystemInfo [ "system-info" .= bpSystemInfo
, "tools" .= map goTool bpTools , "tools" .= map goTool bpTools
, "packages" .= Map.mapKeysWith const unPackageName bpPackages , "packages" .= Map.mapKeysWith const unPackageName bpPackages
, "github-users" .= bpGithubUsers
] ]
where where
goTool (k, v) = object goTool (k, v) = object