robur/builder-web
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

builder-web: Inform expected version on wrong ver. (#121)

Browse source 
Reviewed-on: https://git.robur.io/robur/builder-web/pulls/121
Co-authored-by: Reynir Björnsson <reynir@reynir.dk>
Co-committed-by: Reynir Björnsson <reynir@reynir.dk>
This commit is contained in:
Reynir Björnsson 2022-06-22 08:20:29 +00:00
parent 071183ff6c
commit 0be38475b7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/builder_web.ml
View file

@ -9,8 +9,8 @@ let pp_error ppf = function
| #Model.error as e -> Model.pp_error ppf e | #Model.error as e -> Model.pp_error ppf e
| `Wrong_version (application_id, version) -> | `Wrong_version (application_id, version) ->
if application_id = Builder_db.application_id if application_id = Builder_db.application_id
then Format.fprintf ppf "Wrong database version: %Ld" version then Format.fprintf ppf "Wrong database version: %Ld, expected %Ld" version Builder_db.current_version
else Format.fprintf ppf "Wrong database application id: %ld" application_id else Format.fprintf ppf "Wrong database application id: %ld, expected %ld" application_id Builder_db.application_id
let init_datadir datadir = let init_datadir datadir =
let ( let* ) = Result.bind and ( let+ ) x f = Result.map f x in let ( let* ) = Result.bind and ( let+ ) x f = Result.map f x in