From 643b156e075953a2b4018516252098ba03bb814b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Reynir=20Bj=C3=B6rnsson?= <reynir@reynir.dk>
Date: Tue, 23 Mar 2021 11:53:41 +0100
Subject: [PATCH] Job.get does not return an option

---
 db/builder_db.ml  | 2 +-
 db/builder_db.mli | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/db/builder_db.ml b/db/builder_db.ml
index 83a5170..e723abb 100644
--- a/db/builder_db.ml
+++ b/db/builder_db.ml
@@ -60,7 +60,7 @@ module Job = struct
       {| DROP TABLE IF EXISTS job |}
 
   let get =
-    Caqti_request.find_opt
+    Caqti_request.find
       id
       Caqti_type.string
       "SELECT name FROM job WHERE id = ?"
diff --git a/db/builder_db.mli b/db/builder_db.mli
index 0e9e1fd..3b0f206 100644
--- a/db/builder_db.mli
+++ b/db/builder_db.mli
@@ -51,7 +51,7 @@ module Job : sig
     (unit, unit, [< `Many | `One | `Zero > `Zero ]) Caqti_request.t
 
   val get :
-    (id, string, [< `Many | `One | `Zero > `One `Zero ])
+    (id, string, [< `Many | `One | `Zero > `One ])
       Caqti_request.t
   val get_id_by_name :
     (string, id, [< `Many | `One | `Zero > `One ]) Caqti_request.t