+ More accurate function to read sexp from file, since newline at end of file don't lead to error.
@@ -119,8 +119,7 @@ let rec get_basic rc_name =
| `No -> create_basic rc_name; get_basic rc_name
| `Unknown -> failwith "Error reading configuration file";
| `Yes -> (* Try to read, if there is an error, reset file *)
- In_channel.read_all rc_name
- |> Sexp.of_string
+ Sexp.load_sexp rc_name
|> basic_rc_of_sexp
;;