1 files changed, 8 insertions, 1 deletions

diff --git a/src/ConfigFile.hs b/src/ConfigFile.hs
index bc5e254..08aa914 100644
--- a/src/ConfigFile.hs
+++ b/src/ConfigFile.hs
@@ -48,6 +48,7 @@ data Patch            = Patch deriving (Show, Read)
 data BaseImageSpecification
   = EmptyImageOfBytes Int64
   | ParentImageConfigFile FilePath
+  | SeededImage Int64 FilePath
   deriving (Show, Read)
 
 data DiskImageConfig = DiskImageConfig {
@@ -60,6 +61,7 @@ data DiskImageConfig = DiskImageConfig {
 , chrootCommands    :: Vector Text
 , skelFiles         :: Vector Text
 , optionalSkelFiles :: Vector Text
+, newSeededImgSize  :: Maybe Int64
 } deriving (Show, Read)
 
 parsePackageName :: Text -> Package
@@ -77,7 +79,12 @@ diskImageConfigParser = object $
   <*> defaultField "chroot-commands" Vector.empty (array string)
   <*> defaultField "skel-files" Vector.empty (array string)
   <*> defaultField "skel-files-optional" Vector.empty (array string)
+  <*> optField "seedme" integer
+
+convSeeded :: DiskImageConfig -> DiskImageConfig
+convSeeded x@(DiskImageConfig (ParentImageConfigFile f) _ _ _ _ _ _ _ _ (Just size)) = x { initialImage = SeededImage size f }
+convSeeded x = x
 
 readCfg :: FilePath -> Action DiskImageConfig
-readCfg yaml = either error id . parse diskImageConfigParser . encodeUtf8 . pack <$> readFile' yaml
+readCfg yaml = either error convSeeded . parse diskImageConfigParser . encodeUtf8 . pack <$> readFile' yaml