Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Feature/2219 changelog v2 #439

Open
wants to merge 19 commits into
base: main
Choose a base branch
from
Open

Feature/2219 changelog v2 #439

wants to merge 19 commits into from

Conversation

timohuber
Copy link
Contributor

No description provided.

Comment on lines +11 to +15
let predicate_key (key : Key.t) =
let open Key in
match key with
| CustomField id -> Custom_field.Id.value id
| Hardcoded key -> show_hardcoded key
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
let predicate_key (key : Key.t) =
let open Key in
match key with
| CustomField id -> Custom_field.Id.value id
| Hardcoded key -> show_hardcoded key
let predicate_key : Key.t -> string =
let open Key in
function
| CustomField id -> Custom_field.Id.value id
| Hardcoded key -> show_hardcoded key

Comment on lines +18 to +22
let yojson_of_value m =
match m with
| NoValue -> `Null
| Single single -> single |> yojson_of_single_val
| Lst values -> `List (CCList.map yojson_of_single_val values)
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
let yojson_of_value m =
match m with
| NoValue -> `Null
| Single single -> single |> yojson_of_single_val
| Lst values -> `List (CCList.map yojson_of_single_val values)
let yojson_of_value = function
| NoValue -> `Null
| Single single -> single |> yojson_of_single_val
| Lst values -> `List (CCList.map yojson_of_single_val values)

Comment on lines +157 to +161
let to_int s =
s
|> CCString.replace ~which:`Left ~sub:"0" ~by:""
|> CCInt.of_string
|> CCOption.get_exn_or error
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
let to_int s =
s
|> CCString.replace ~which:`Left ~sub:"0" ~by:""
|> CCInt.of_string
|> CCOption.get_exn_or error
let to_int =
CCString.replace ~which:`Left ~sub:"0" ~by:""
%> CCInt.of_string
%> CCOption.get_exn_or error

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

2 participants