Update Vouch.hs

gbaz · web-flow · commit f763229b614e · 2023-12-04T18:10:43.000-05:00
diff --git a/src/Distribution/Server/Features/Vouch.hs b/src/Distribution/Server/Features/Vouch.hs
@@ -218,6 +218,7 @@ initVouchFeature ServerEnv{serverStateDir, serverTemplatesDir, serverTemplatesMo
                 liftIO $ Group.addUserToGroup uploadersGroup vouchee
                 pure . toResponse $ vouchTemplate
                   [ "msg" $= "Added endorsement. User is now an uploader!"
+                  , "requiredNumber" $= show requiredCountOfVouches                  
                   , param
                   ]
               AddVouchIncomplete stillRequired ->

Original file line number	Diff line number	Diff line change
`@@ -218,6 +218,7 @@ initVouchFeature ServerEnv{serverStateDir, serverTemplatesDir, serverTemplatesMo`
`218`	`218`	`liftIO $ Group.addUserToGroup uploadersGroup vouchee`
`219`	`219`	`pure . toResponse $ vouchTemplate`
`220`	`220`	`[ "msg" $= "Added endorsement. User is now an uploader!"`
	`221`	`+ , "requiredNumber" $= show requiredCountOfVouches`
`221`	`222`	`, param`
`222`	`223`	`]`
`223`	`224`	`AddVouchIncomplete stillRequired ->`