implement "apt-update" to install apt lists

presently this hard-codes stretch & amd64

1 files changed, 15 insertions, 1 deletions

diff --git a/fsmgr.hs b/fsmgr.hs
index 65797c4..2a2d09c 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -53,6 +53,19 @@ uname = unsafePerformIO $ do
   Stdout out <- cmd "uname -r"
   return $ last . wordsBy '-' . head . lines $ out
 
+aptListFiles :: [FilePath]
+aptListFiles = ("/var/lib/apt/lists" </>) <$> observedCorrectListForStretch
+  where
+    observedCorrectListForStretch =
+      [ "httpredir.debian.org_debian_dists_stretch_main_binary-amd64_Packages"
+      , "httpredir.debian.org_debian_dists_stretch_main_i18n_Translation-en"
+      , "httpredir.debian.org_debian_dists_stretch_Release"
+      , "httpredir.debian.org_debian_dists_stretch_Release.gpg"
+      , "security.debian.org_dists_stretch_updates_InRelease"
+      , "security.debian.org_dists_stretch_updates_main_binary-amd64_Packages"
+      , "security.debian.org_dists_stretch_updates_main_i18n_Translation-en"
+      ]
+
 buildRoot :: DiskImageConfig -> FilePath -> Action ()
 buildRoot config@DiskImageConfig{..} finalOut = do
   let out        = finalOut <.> "tmp"
@@ -81,7 +94,8 @@ buildRoot config@DiskImageConfig{..} finalOut = do
       cmd_ (AddEnv "DEBIAN_FRONTEND" "noninteractive")
            ["dpkg"] [if unpackOnly then "--unpack" else "--install"] (dynamicNames <$> debs)
     {- 2.5. install apt package cache -}
-    -- TODO
+    when installAptLists $ do
+      cmd_ "rsync -Ra" (("/./" ++) <$> aptListFiles) (mountpoint ++ "/")
     {- 3. binaries -}
     let go b = do
           p <- fromMaybe (fail $ "not found in ${PATH}: " ++ b) <$> liftIO (pathLocate b)