From d030ce0721a46c539f9d6addb450ccc9d13163b3 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau <matthieu.sozeau@inria.fr>
Date: Sat, 17 Jan 2015 14:49:26 +0530
Subject: Avoid compilation warning... might not be the best fix though.

---
 library/library.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'library/library.ml')

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
-- 
cgit v1.2.3