Teal: convert luarocks.cmd.upload

1 files changed, 26 insertions, 10 deletions

diff --git a/src/luarocks/cmd/upload.lua b/src/luarocks/cmd/upload.tl
index 6b84e452..df544d13 100644
--- a/src/luarocks/cmd/upload.lua
+++ b/src/luarocks/cmd/upload.tl
@@ -1,5 +1,15 @@
 
-local upload = {}
+local record upload
+   record Response
+      module: string
+      is_new: boolean
+      module_url: boolean
+      manifests: {string}
+      record version
+         id: string
+      end
+   end
+end
 
 local signing = require("luarocks.signing")
 local util = require("luarocks.util")
@@ -8,7 +18,13 @@ local pack = require("luarocks.pack")
 local cfg = require("luarocks.core.cfg")
 local Api = require("luarocks.upload.api")
 
-function upload.add_to_parser(parser)
+local type Response = upload.Response
+
+local type Parser = require("luarocks.vendor.argparse").Parser
+
+local type Args = require("luarocks.core.types.args").Args
+
+function upload.add_to_parser(parser: Parser)
    local cmd = parser:command("upload", "Pack a source rock file (.src.rock extension) "..
       "and upload it and the rockspec to the public rocks repository.", util.see_also())
       :summary("Upload a rockspec to the public rocks repository.")
@@ -31,11 +47,11 @@ function upload.add_to_parser(parser)
    cmd:flag("--debug"):hidden(true)
 end
 
-local function is_dev_version(version)
+local function is_dev_version(version: string): string
    return version:match("^dev") or version:match("^scm")
 end
 
-function upload.command(args)
+function upload.command(args: Args): boolean, string, string
    local api, err = Api.new(args)
    if not api then
       return nil, err
@@ -53,7 +69,7 @@ function upload.command(args)
    local res, err = api:method("check_rockspec", {
       package = rockspec.package,
       version = rockspec.version
-   })
+   }) as (Response, string)
    if not res then return nil, err end
 
    if not res.module then
@@ -63,8 +79,8 @@ function upload.command(args)
       return nil, "Revision "..rockspec.version.." already exists on the server. "..util.see_help("upload")
    end
 
-   local sigfname
-   local rock_sigfname
+   local sigfname: string
+   local rock_sigfname: string
 
    if args.sign then
       sigfname, err = signing.sign_file(args.rockspec)
@@ -74,7 +90,7 @@ function upload.command(args)
       util.printout("Signed rockspec: "..sigfname)
    end
 
-   local rock_fname
+   local rock_fname: string
    if args.src_rock then
       rock_fname = args.src_rock
    elseif not args.skip_pack and not is_dev_version(rockspec.version) then
@@ -98,7 +114,7 @@ function upload.command(args)
    res, err = api:method("upload", nil, {
      rockspec_file = multipart.new_file(args.rockspec),
      rockspec_sig = sigfname and multipart.new_file(sigfname),
-   })
+   }) as (Response, string)
    if not res then return nil, err end
 
    if res.is_new and #res.manifests == 0 then
@@ -115,7 +131,7 @@ function upload.command(args)
       res, err = api:method("upload_rock/" .. ("%d"):format(res.version.id), nil, {
          rock_file = multipart.new_file(rock_fname),
          rock_sig = rock_sigfname and multipart.new_file(rock_sigfname),
-      })
+      }) as (Response, string)
       if not res then return nil, err end
    end