Fix: warnings

ocaml-sf · Jul 28, 2021 · f5b39c1 · f5b39c1
1 parent 84ce517
commit f5b39c1
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 5 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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