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

diff --git a/src/febootstrap_pacman.ml b/src/febootstrap_pacman.ml
index bd12f69..7fbb72b 100644
--- a/src/febootstrap_pacman.ml
+++ b/src/febootstrap_pacman.ml
@@ -32,6 +32,10 @@ let pacman_detect () =
   file_exists "/etc/arch-release" &&
     Config.pacman <> "no"
 
+let pacman_init () =
+  if use_installed then
+    failwith "pacman driver doesn't support --use-installed"
+
 let pacman_resolve_dependencies_and_download names =
   let cmd =
     sprintf "(for p in %s; do pactree -u $p; done) | awk '{print $1}' | sort -u"
@@ -71,10 +75,7 @@ let pacman_resolve_dependencies_and_download names =
 
   List.sort compare pkgs
 
-let pacman_list_files ?(use_installed=false) pkg =
-  if use_installed then
-    failwith "pacman driver doesn't support --use-installed";
-
+let pacman_list_files pkg =
   debug "unpacking %s ..." pkg;
 
   (* We actually need to extract the file in order to get the
@@ -119,15 +120,13 @@ let pacman_list_files ?(use_installed=false) pkg =
   files
 
 (* Easy because we already unpacked the archive above. *)
-let pacman_get_file_from_package ?(use_installed=false) pkg file =
-  if use_installed then
-    failwith "pacman driver doesn't support --use-installed";
-
+let pacman_get_file_from_package pkg file =
   tmpdir // pkg ^ ".d" // file
 
 let () =
   let ph = {
     ph_detect = pacman_detect;
+    ph_init = pacman_init;
     ph_resolve_dependencies_and_download =
       pacman_resolve_dependencies_and_download;
     ph_list_files = pacman_list_files;