From 583d6534050a0bb3397921b5bb2621026d115042 Mon Sep 17 00:00:00 2001 From: Swrup Date: Tue, 22 Apr 2025 15:29:26 +0200 Subject: [PATCH] default restrict_trim to false for now; except on email and nick --- src/validate_str.ml | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/src/validate_str.ml b/src/validate_str.ml index c7ab3ec..eb83428 100644 --- a/src/validate_str.ml +++ b/src/validate_str.ml @@ -68,19 +68,21 @@ let map_err_to_invalid_submission ~kind_str f = open Config +let restrict_trim = false + let subject = make ~max_len:subject_max_length ~min_len:subject_min_length - ~restrict_char:false ~restrict_trim:true + ~restrict_char:false ~restrict_trim |> map_err_to_invalid_submission ~kind_str:"subject" let comment = make ~max_len:comment_max_length ~min_len:comment_min_length - ~restrict_char:false ~restrict_trim:true + ~restrict_char:false ~restrict_trim |> map_err_to_invalid_submission ~kind_str:"comment" let report = make ~max_len:report_max_length ~min_len:None ~restrict_char:false - ~restrict_trim:true + ~restrict_trim |> map_err_to_invalid_submission ~kind_str:"report" let nick = @@ -95,20 +97,20 @@ let email = let bio = make ~max_len:biography_max_length ~min_len:None ~restrict_char:false - ~restrict_trim:false + ~restrict_trim |> map_err_to_invalid_submission ~kind_str:"biography" let password = make ~max_len:password_max_length ~min_len:(Some password_min_length) - ~restrict_char:false ~restrict_trim:false + ~restrict_char:false ~restrict_trim |> map_err_to_invalid_submission ~kind_str:"password" let image_name = make ~max_len:image_name_max_length ~min_len:None ~restrict_char:false - ~restrict_trim:true + ~restrict_trim |> map_err_to_invalid_submission ~kind_str:"image name" let image_alt = make ~max_len:image_description_max_length ~min_len:None ~restrict_char:false - ~restrict_trim:true + ~restrict_trim |> map_err_to_invalid_submission ~kind_str:"image description"