remove logs

uzh · Sep 13, 2024 · 5438858 · 5438858
1 parent f5e31f1
commit 5438858
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 17 deletions.
diff --git a/pool/app/mailing/repo/repo.ml b/pool/app/mailing/repo/repo.ml
@@ -250,13 +250,6 @@ module Sql = struct
     ;;
 
     let find_current pool interval =
-      let () =
-        Caqti_request.make_pp_with_param
-          ()
-          Format.std_formatter
-          (find_current_request, interval)
-      in
-      print_endline "";
       Database.collect pool find_current_request interval
     ;;
   end

diff --git a/pool/web/handler/contact_experiment.ml b/pool/web/handler/contact_experiment.ml
@@ -86,19 +86,9 @@ let show_online_study
   let%lwt current_time_window =
     Time_window.find_current_by_experiment database_label experiment_id
   in
-  let () =
-    match current_time_window with
-    | None -> Logs.info (fun m -> m "%s" "NO CURRENT")
-    | Some _ -> Logs.info (fun m -> m "%s" "SOME CURRENT")
-  in
   let%lwt upcoming_time_window =
     Time_window.find_upcoming_by_experiment database_label experiment_id
   in
-  let () =
-    match current_time_window with
-    | None -> Logs.info (fun m -> m "%s" "NO UPCOMING")
-    | Some _ -> Logs.info (fun m -> m "%s" "SOME UPCOMING")
-  in
   let argument =
     let open CCOption in
     let open Assignment in