call dpkg with different options

1 files changed, 3 insertions, 1 deletions

diff --git a/fsmgr.hs b/fsmgr.hs
index 429b0a1..894bd29 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -56,7 +56,9 @@ buildRoot config@DiskImageConfig{..} finalOut = do
       -- "Required" even if no packages are specified. When there is a parent,
       -- assume that this has already happened.
       cmd_ "selfstrap --skip-update" (("--unpack" `consWhen` unpackOnly) ["-t", mountpoint]) packageNames
-    forM_ debs $ \pkg -> do cmd_ "dpkg -i --root" [mountpoint, pkg]
+    forM_ debs $ \pkg -> do cmd_ (AddEnv "DEBIAN_FRONTEND" "noninteractive")
+                                 ["dpkg"] [if unpackOnly then "--unpack" else "--install"]
+                                          ["--root", mountpoint, pkg]
     {- 2.5. install apt package cache -}
     -- TODO
     {- 3. binaries -}