se validators Run the first validator and if successful then the second. Only returns the first error.</p><pre><code class="ml">let name_validator =
  open Validator in
  string_is_not_empty &quot;Empty&quot;
  |&gt; compose (string_has_min_length 3 &quot;Too short&quot;)

let validator input =
  let open Validator in
  build build_valid
  |&gt; validate input.name name_validator</code></pre></dd></dl><dl><dt class="spec value" id="val-all"><a href="#val-all" class="anchor"></a><code><span class="keyword">v