shake "need" debs

1 files changed, 3 insertions, 2 deletions

diff --git a/fsmgr.hs b/fsmgr.hs
index 3eee8bd..d8e1c1d 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -149,15 +149,16 @@ buildRoot config@DiskImageConfig{..} finalOut = do
     forM_ debconfConfig $
       readFile' >=> liftIO . appendFile (mountpoint </> "var/cache/debconf/config.dat")
     {- 2. dpkg installs -}
-    let (debs, packageNames) = partitionPackages $ unpack . coerce <$> toList packages
+    let (fmap dynamicNames -> debs, packageNames) = partitionPackages $ unpack . coerce <$> toList packages
     when (noParent initialImage || not (null packageNames)) $
       -- When there is no parent, selfstrap should install packages marked
       -- "Required" even if no packages are specified. When there is a parent,
       -- assume that this has already happened.
       cmd_ "selfstrap" (("--unpack" `consWhen` unpackOnly) ["-t", mountpoint]) (dynamicNames <$> packageNames)
     when (not $ null debs) $ do
+      need debs
       cmd_ (AddEnv "DEBIAN_FRONTEND" "noninteractive")
-           ["dpkg"] [if unpackOnly then "--unpack" else "--install"] (dynamicNames <$> debs)
+           ["dpkg"] [if unpackOnly then "--unpack" else "--install"] debs
     {- 2.5. install apt package cache -}
     when installAptLists $ do
       cmd_ "rsync -Ra" (("/./" ++) <$> aptListFiles aptListCfg) (mountpoint ++ "/")