diff options
| author | Matthieu Sozeau | 2015-01-17 14:49:26 +0530 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-01-18 00:16:43 +0530 |
| commit | f551b2bf0da686a126bf286ed0e6d72b5fc1ccd2 (patch) | |
| tree | 4f272efeeb44407e741519939fb2de3826818e54 | |
| parent | d3c3b67c10774ab09054b94c6db5633f0483a06f (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 f1bc491871..b443c2a4c7 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 |