input =
  let open Validator in
  build build_valid
  |&gt; validate input.email (all validators)</code></pre></dd></dl><dl><dt class="spec value" id="val-whole"><a href="#val-whole" class="anchor"></a><code><span class="keyword">val</span> whole : <span>(<span class="type-var">'whole</span> <span>&#45;&gt;</span> <span><span>(<span class="type-var">'whole</span>, <span class="type-var">'err</span>)</span> Stdlib.result</span>)</span> <span>&#45;&gt;</span> <span><span>(<span class="type-var">'whole</span>