Collect the size (ft_size) of files from package handlers.

[febootstrap.git] / febootstrap_pacman.ml

diff --git a/febootstrap_pacman.ml b/febootstrap_pacman.ml
index 760d0ef..96dfefa 100644 (file)
--- a/febootstrap_pacman.ml
+++ b/febootstrap_pacman.ml
@@ -111,7 +111,7 @@ let pacman_list_files pkg =
       let mode = statbuf.st_perm in
 
       (path, { ft_dir = is_dir; ft_config = config; ft_mode = mode;
-              ft_ghost = false })
+              ft_ghost = false; ft_size = statbuf.st_size })
   ) lines in
 
   files