From 41d5d8bfe3104f0a05bcb77999bac99f182d4eba Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Sat, 30 May 2020 00:48:35 -0400 Subject: implement "apt-update" to install apt lists presently this hard-codes stretch & amd64 --- fsmgr.hs | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'fsmgr.hs') 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) -- cgit v1.2.3