We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 02fdb21 + 21276e1 commit 13623adCopy full SHA for 13623ad
jar/jar.ml
@@ -25,10 +25,10 @@ let prompt = "Enter Github password: "
25
let scope =
26
let parse s =
27
match Github.Scope.of_string s with
28
- |None -> `Error "unknown scope"
29
- |Some s -> `Ok s in
+ | None -> Error (`Msg "unknown scope")
+ | Some s -> Ok s in
30
let print f s = Format.pp_print_string f (Github.Scope.to_string s) in
31
- parse, print
+ Arg.conv (parse, print)
32
33
let complete_2fa c =
34
let rec try_again f = Github.(Monad.(f () >>~ function
0 commit comments