diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-01-17 14:49:26 +0530 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-01-17 14:49:26 +0530 |
| commit | d030ce0721a46c539f9d6addb450ccc9d13163b3 (patch) | |
| tree | 7a28541bb1677e2acd8cff444d437117b4e40b9c | |
| parent | 9d60a8655f37ee922c662d15b3df0d94a8fd32aa (diff) | |
Avoid compilation warning... might not be the best fix though.
| -rw-r--r-- | library/library.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/library.ml b/library/library.ml index f1bc49187..b443c2a4c 100644 --- a/library/library.ml +++ b/library/library.ml @@ -465,7 +465,7 @@ let rec_intern_by_filename_only id f = m.library_name, needed let native_name_from_filename f = - let paths = Loadpath.get_paths () in + let _paths = Loadpath.get_paths () in let ch = System.with_magic_number_check raw_intern_library f in let (lmd : seg_lib), pos, digest_lmd = System.marshal_in_segment f ch in Nativecode.mod_uid_of_dirpath lmd.md_name |