Remove warnings

TODO.md

@@ -5,7 +5,6 @@
     Or send an email to the author !**
 
 ## Major issue
- + Remove warnings
 
 ## Short term
 

src/add_command.ml

@@ -56,6 +56,8 @@ let new_list current_list position new_items =
 (* Function which add the commands (one per line) ridden on stdin to the rc
  * file, and then display th new configuration *)
 let run ~(rc:File_com.t) position =
+    (* We will use type rc_file *)
+    let open Settings_t in
     (* Read command from stdin, as a list. fix_win_eol removes \r\n *)
     let cmd_list = In_channel.input_lines ~fix_win_eol:true In_channel.stdin in
     (* Create an updated rc file *)

src/exec_cmd.ml

@@ -60,6 +60,8 @@ let num_cmd_to_cmd ~cmd_list number =
 (* Function to determinate what is the next command to
  * execute. It take the current number from tmp file. *)
 let what_next ~cmd_list =
+  (* We will use type tmp_file *)
+  let open Tmp_biniou_t in
   let tmp_file = Tmp_file.init () in
   num_cmd_to_cmd ~cmd_list:cmd_list tmp_file.number
 ;;

src/list_rc.ml

@@ -45,6 +45,7 @@ let disp_cmd_num number command =
 
 (* Function which list *)
 let run ~(rc:File_com.t) =
-    let open File_com in
+    (* We will use type rc_file *)
+    let open Settings_t in
     List.iteri rc.progs ~f:disp_cmd_num
 ;;

src/remove_command.ml

@@ -41,6 +41,8 @@ open Core.Std;;
 (* Function which add the commands (one per line) ridden on stdin to the rc
  * file, and then display th new configuration *)
 let run ~(rc:File_com.t) n_to_remove =
+    (* We will use type rc_file *)
+    let open Settings_t in
     (* Get actual list of commands *)
     let actual_list = rc.progs in
     (* Get nth *)

src/state.ml

@@ -40,6 +40,8 @@ open Core.Std;;
 
 (* Display current number *)
 let current () =
+    (* We will use type tmp_file *)
+    let open Tmp_biniou_t in
     (* Read tmp file *)
     let tmp_file = Tmp_file.init () in
     (* Display the number *)