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 --- src/ConfigFile.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3