X-Git-Url: http://git.annexia.org/?p=febootstrap.git;a=blobdiff_plain;f=src%2Ffebootstrap.ml;fp=src%2Ffebootstrap.ml;h=7e48206e88ac6e3f97a9cda80fbcb3a16c80074e;hp=3afb1bb4e641a540654291b690014c2cfc1055d4;hb=2b1631439dc8dc4c6b8d7d78a5f3a5b2c08d83fd;hpb=3b66c431e6b5477db8f5c186c14c16506a2df018

diff --git a/src/febootstrap.ml b/src/febootstrap.ml
index 3afb1bb..7e48206 100644
--- a/src/febootstrap.ml
+++ b/src/febootstrap.ml
@@ -67,7 +67,7 @@ let () =
     List.flatten (
       List.map (
         fun pkg ->
-          let files = ph.ph_list_files ~use_installed pkg in
+          let files = ph.ph_list_files pkg in
           List.map (fun (filename, ft) -> filename, ft, pkg) files
       ) packages
     ) in
@@ -320,7 +320,7 @@ let () =
        * original file from the package.
        *)
       else if config then (
-        let outfile = ph.ph_get_file_from_package ~use_installed pkg path in
+        let outfile = ph.ph_get_file_from_package pkg path in
 
         (* Note that the output config file might not be a regular file. *)
         let statbuf = lstat outfile in