159 |
(get_value "file_sources" ( |
(get_value "file_sources" ( |
160 |
value_to_list (ClientOption.of_value file))) |
value_to_list (ClientOption.of_value file))) |
161 |
with e -> |
with e -> |
162 |
lprintf "Exception %s while loading sources\n" |
lprintf_nl "[BT]: Exception %s while loading sources" |
163 |
(Printexc2.to_string e); |
(Printexc2.to_string e); |
164 |
); |
); |
165 |
|
|
206 |
Int64Swarmer.swarmer_to_value swarmer assocs |
Int64Swarmer.swarmer_to_value swarmer assocs |
207 |
with |
with |
208 |
e -> |
e -> |
209 |
lprintf "BTComplexOptions: exception %s in file_to_value\n" |
lprintf_nl "BTComplexOptions: exception %s in file_to_value" |
210 |
(Printexc2.to_string e); raise e |
(Printexc2.to_string e); raise e |
211 |
|
|
212 |
let old_files = |
let old_files = |