implement "apt-update" to install apt lists

presently this hard-codes stretch & amd64

1 files changed, 3 insertions, 1 deletions

diff --git a/src/ConfigFile.hs b/src/ConfigFile.hs
index 08aa914..a5b5989 100644
--- a/src/ConfigFile.hs
+++ b/src/ConfigFile.hs
@@ -62,6 +62,7 @@ data DiskImageConfig = DiskImageConfig {
 , skelFiles         :: Vector Text
 , optionalSkelFiles :: Vector Text
 , newSeededImgSize  :: Maybe Int64
+, installAptLists   :: Bool
 } deriving (Show, Read)
 
 parsePackageName :: Text -> Package
@@ -80,9 +81,10 @@ diskImageConfigParser = object $
   <*> defaultField "skel-files" Vector.empty (array string)
   <*> defaultField "skel-files-optional" Vector.empty (array string)
   <*> optField "seedme" integer
+  <*> defaultField "apt-update" False bool
 
 convSeeded :: DiskImageConfig -> DiskImageConfig
-convSeeded x@(DiskImageConfig (ParentImageConfigFile f) _ _ _ _ _ _ _ _ (Just size)) = x { initialImage = SeededImage size f }
+convSeeded x@(DiskImageConfig (ParentImageConfigFile f) _ _ _ _ _ _ _ _ (Just size) _) = x { initialImage = SeededImage size f }
 convSeeded x = x
 
 readCfg :: FilePath -> Action DiskImageConfig