process.ml: fix type annotation

Octachron · Octachron · commit 9369b1ec8d2c · 2023-07-05T16:06:08.000+02:00
diff --git a/src/process.ml b/src/process.ml
@@ -28,7 +28,7 @@ let process :
     Metadata.t ->
     Tree.operation ->
     ( ( int64 * Metadata.t,
-        [> `Syscall of error | `Invalid_test | `No_process ] )
+        [> `Syscall of error | `Invalid_date | `Invalid_test | `No_process | `Not_found] )
       result,
       s )
     io =
