From f5b39c115ad98ae305b36141e246133999f8e39f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?L=C3=A9o=20Segond?= Date: Wed, 28 Jul 2021 15:14:56 +0200 Subject: [PATCH] Fix: warnings --- src/app/learnocaml_lti_main.ml | 1 - src/app/learnocaml_upgrade_main.ml | 1 - src/main/learnocaml_client.ml | 2 +- src/server/learnocaml_server.ml | 4 ++-- 4 files changed, 3 insertions(+), 5 deletions(-) diff --git a/src/app/learnocaml_lti_main.ml b/src/app/learnocaml_lti_main.ml index b965a0ad0..d8ff8f11b 100644 --- a/src/app/learnocaml_lti_main.ml +++ b/src/app/learnocaml_lti_main.ml @@ -7,7 +7,6 @@ open Js_utils open Lwt -open Learnocaml_data open Learnocaml_common module H = Tyxml_js.Html5 diff --git a/src/app/learnocaml_upgrade_main.ml b/src/app/learnocaml_upgrade_main.ml index 08c228a7c..53cdb0905 100644 --- a/src/app/learnocaml_upgrade_main.ml +++ b/src/app/learnocaml_upgrade_main.ml @@ -8,7 +8,6 @@ open Js_utils open Lwt open Learnocaml_common -open Learnocaml_api module El = struct let id s = s, find_component s diff --git a/src/main/learnocaml_client.ml b/src/main/learnocaml_client.ml index c9c1331d1..909feefac 100644 --- a/src/main/learnocaml_client.ml +++ b/src/main/learnocaml_client.ml @@ -1092,7 +1092,7 @@ end module Server_config = struct let doc = "Get a structured json containing an information about the use_password compatibility" - let server_config o = (*get_config_o ~allow_static:true o + let server_config _o = (*get_config_o ~allow_static:true o >>= fun {ConfigFile.server;token} -> fetch server (Learnocaml_api.Server_config) >>= (fun index-> diff --git a/src/server/learnocaml_server.ml b/src/server/learnocaml_server.ml index 17d3a0639..80768bc80 100644 --- a/src/server/learnocaml_server.ml +++ b/src/server/learnocaml_server.ml @@ -41,7 +41,7 @@ open Lwt.Infix let read_static_file path = Lwt_io.(with_file ~mode: Input (sanitise_path !static_dir path) read) -exception Too_long_body +(*exception Too_long_body let string_of_stream ?(max_size = 1024 * 1024) s = let b = Buffer.create (64 * 1024) in @@ -61,7 +61,7 @@ let string_of_stream ?(max_size = 1024 * 1024) s = end begin function | Too_long_body -> Lwt.return None | e -> Lwt.fail e - end + end*) module Api = Learnocaml_api