initial commit

1 files changed, 48 insertions, 0 deletions

diff --git a/fsmgr.hs b/fsmgr.hs
new file mode 100644
index 0000000..3c5e72f
--- /dev/null
+++ b/fsmgr.hs
@@ -0,0 +1,48 @@
+{-# LANGUAGE InstanceSigs          #-}
+{-# LANGUAGE NoImplicitPrelude     #-}
+{-# LANGUAGE PartialTypeSignatures #-}
+module Main where
+import           Rebase.Prelude                hiding (hash)
+
+import           Crypto.Hash
+import           Crypto.Hash.Types.Digest.Read ()
+
+{-
+
+Basic idea is to have a fs.yaml that specifies the build procedure. Analogous to
+stack.yaml, it should specify everything (every source) directly or indirectly.
+
+We want to make new images from CoW copies of old ones. We want to build these
+things incrementally, but still end up with something that will be reproducible
+from scratch.
+
+Anyway, what we'll have is a list of packages, which will be unpacked first.
+Then a list of debconf values, which will be applied. Then we will have the rest
+of the other, slower changes to the image (including dpkg --configure -a). Some
+changes can be assumed to produce the same results out of order. Oh right, and
+the zeroeth step is to generate the empty (or just initial) filesystem image.
+The initial filesystem image, if nonempty, is specified by filename (otherwise,
+by size), while the hash of the configuration determines the output filename.
+
+
+-}
+
+newtype DebconfConfig = DebconfConfig Text deriving (Show, Read, Eq, Ord)
+newtype Package       = Package Text deriving (Show, Read, Eq, Ord)
+data Patch            = Patch deriving (Show, Read)
+
+sha1 :: ByteString -> Digest SHA1
+sha1 = hash
+
+data DiskImageConfig = DiskImageConfig {
+  initialImage  :: Either Integer (Digest SHA1)
+, unpacked      :: Set Package
+, debconfConfig :: DebconfConfig
+, configured    :: Set Package
+, patched       :: [Patch]
+} deriving (Show, Read)
+
+
+
+main :: IO ()
+main = return ()