summaryrefslogtreecommitdiff
path: root/src/ConfigFile.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/ConfigFile.hs')
-rw-r--r--src/ConfigFile.hs4
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 {
62, skelFiles :: Vector Text 62, skelFiles :: Vector Text
63, optionalSkelFiles :: Vector Text 63, optionalSkelFiles :: Vector Text
64, newSeededImgSize :: Maybe Int64 64, newSeededImgSize :: Maybe Int64
65, installAptLists :: Bool
65} deriving (Show, Read) 66} deriving (Show, Read)
66 67
67parsePackageName :: Text -> Package 68parsePackageName :: Text -> Package
@@ -80,9 +81,10 @@ diskImageConfigParser = object $
80 <*> defaultField "skel-files" Vector.empty (array string) 81 <*> defaultField "skel-files" Vector.empty (array string)
81 <*> defaultField "skel-files-optional" Vector.empty (array string) 82 <*> defaultField "skel-files-optional" Vector.empty (array string)
82 <*> optField "seedme" integer 83 <*> optField "seedme" integer
84 <*> defaultField "apt-update" False bool
83 85
84convSeeded :: DiskImageConfig -> DiskImageConfig 86convSeeded :: DiskImageConfig -> DiskImageConfig
85convSeeded x@(DiskImageConfig (ParentImageConfigFile f) _ _ _ _ _ _ _ _ (Just size)) = x { initialImage = SeededImage size f } 87convSeeded x@(DiskImageConfig (ParentImageConfigFile f) _ _ _ _ _ _ _ _ (Just size) _) = x { initialImage = SeededImage size f }
86convSeeded x = x 88convSeeded x = x
87 89
88readCfg :: FilePath -> Action DiskImageConfig 90readCfg :: FilePath -> Action DiskImageConfig