cli: fix printing of types and do not override previous errors

cli.carp

@@ -78,6 +78,12 @@ optional arguments.")
         (Integer i) (Long.format s i)
         (Floating f) (Double.format s f)
         (Str s2) (String.format s &s2)))
+
+    (defn str [t]
+      (match @t
+        (Integer i) (str i)
+        (Floating f) (str f)
+        (Str s) (str s)))
   )
 
   (hidden Tag)
@@ -309,6 +315,7 @@ mesage is empty, `--help` was requested. If you don’t want to provide a
             (do
               (set! res (Result.Error (fmt "Unexpected argument: %s" x)))
               (break)))))
+      (when (Result.success? &res)
         (foreach [o options]
           (cond
             (and @(Option.required? o)
@@ -328,7 +335,7 @@ mesage is empty, `--help` was requested. If you don’t want to provide a
                           &(CmdMap.get &values (Option.long o))
                           &(join ", " &(Array.copy-map &str &opts)))))
                     (break))))
-          ()))
+            ())))
       (match res
         (Result.Success _) (Result.Success (CmdMap.to-map &values))
         (Result.Error x) (Result.Error x))))