Add missing right paren

This commit is contained in:
Reynir Björnsson 2023-09-14 12:29:47 +02:00 committed by Robur
parent f636280f10
commit a56bd28e64

View file

@ -172,7 +172,7 @@ module Build_artifact = struct
let exists = let exists =
cstruct ->! Caqti_type.bool @@ cstruct ->! Caqti_type.bool @@
"SELECT EXISTS(SELECT 1 FROM build_artifact WHERE sha256 = ?" "SELECT EXISTS(SELECT 1 FROM build_artifact WHERE sha256 = ?)"
let add = let add =
Caqti_type.(tup2 file (id `build)) ->. Caqti_type.unit @@ Caqti_type.(tup2 file (id `build)) ->. Caqti_type.unit @@