on master help sign in
switch to a GET request for verifying version tags with github
6d741bfEvan Czaplicki
terminal/src/Publish.hs+1−1
@@ -230,7 +230,7 @@ verifyTag git manager pkg vsn =
230
230
231 Exit.ExitSuccess ->
231 Exit.ExitSuccess ->
232 let url = toTagUrl pkg vsn in
232 let url = toTagUrl pkg vsn in
233− Http.post manager url [Http.accept "application/json"] (Exit.PublishCannotGetTag vsn) $ \body ->
233+ Http.get manager url [Http.accept "application/json"] (Exit.PublishCannotGetTag vsn) $ \body ->
234 case D.fromByteString commitHashDecoder body of
234 case D.fromByteString commitHashDecoder body of
235 Right hash ->
235 Right hash ->
236 return $ Right hash
236 return $ Right hash