|
@@ -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
|
|
|
;;
|
|
|
|