getopt optimization and dialyzer fix from Kostis

1 files changed, 3 insertions, 3 deletions

diff --git a/src/getopt.erl b/src/getopt.erl
index 25ceab5..454a96e 100644
--- a/src/getopt.erl
+++ b/src/getopt.erl
@@ -25,7 +25,7 @@
 -define(OPT_ARG, 4).
 -define(OPT_HELP, 5).
 
--define(IS_OPT_SPEC(Opt), (is_tuple(Opt) andalso (size(Opt) =:= ?OPT_HELP))).
+-define(IS_OPT_SPEC(Opt), (tuple_size(Opt) =:= ?OPT_HELP)).
 
 
 %% Atom indicating the data type that an argument can be converted to.
@@ -456,10 +456,10 @@ usage_options_reverse([{Name, Short, Long, _ArgSpec, Help} | Tail], Acc) ->
                 case Short of
                     % Only long form.
                     undefined ->
-                        [$-, $-, Long];
+                        [$-, $- | Long];
                     % Both short and long form.
                     _ ->
-                        [$-, Short, $,, $\s, $-, $-, Long]
+                        [$-, Short, $,, $\s, $-, $- | Long]
                 end
         end,
     usage_options_reverse(Tail, add_option_help(Prefix, Help, Acc));