6 files changed, 129 insertions, 0 deletions

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..3a5b475
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+.stack-work/
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
index 0000000..9a994af
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain
diff --git a/fsmgr.cabal b/fsmgr.cabal
new file mode 100644
index 0000000..06a6bdb
--- /dev/null
+++ b/fsmgr.cabal
@@ -0,0 +1,53 @@
+name:           fsmgr
+version:        0.1.0.0
+-- description:    Please see the README on GitHub at <https://github.com/afcady/fsmgr#readme>
+-- homepage:       https://github.com/afcady/fsmgr#readme
+-- bug-reports:    https://github.com/afcady/fsmgr/issues
+author:         Andrew Cady
+maintainer:     d@jerkface.net
+copyright:      AllRightsReserved
+-- license-file:   LICENSE
+build-type:     Simple
+cabal-version:  >= 1.10
+-- extra-source-files:
+--     ChangeLog.md
+--     README.md
+
+source-repository head
+  type: git
+  location: https://github.com/afcady/fsmgr
+
+library
+  exposed-modules:
+      Crypto.Hash.Types.Digest.Read
+  other-modules:
+      Paths_fsmgr
+  hs-source-dirs:
+      src
+  build-depends:
+                base >=4.7 && <5, rebase, optparse-applicative, typed-process,
+                directory, filepath, yaml, lens, lens-aeson, cryptonite, memory, basement
+  default-language: Haskell2010
+
+executable fsmgr
+  main-is: fsmgr.hs
+  other-modules:
+      Paths_fsmgr
+  ghc-options: -threaded -rtsopts -with-rtsopts=-N -W -Wall
+  build-depends:
+                base >=4.7 && <5, rebase, optparse-applicative, typed-process,
+                directory, filepath, yaml, lens, lens-aeson, cryptonite, memory, basement, fsmgr
+  default-language: Haskell2010
+
+-- test-suite fsmgr-test
+--   type: exitcode-stdio-1.0
+--   main-is: Spec.hs
+--   other-modules:
+--       Paths_fsmgr
+--   hs-source-dirs:
+--       test
+--   ghc-options: -threaded -rtsopts -with-rtsopts=-N
+--   build-depends:
+--       base >=4.7 && <5
+--     , fsmgr
+--   default-language: Haskell2010
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 ()
diff --git a/src/Crypto/Hash/Types/Digest/Read.hs b/src/Crypto/Hash/Types/Digest/Read.hs
new file mode 100644
index 0000000..f371f30
--- /dev/null
+++ b/src/Crypto/Hash/Types/Digest/Read.hs
@@ -0,0 +1,20 @@
+{-# OPTIONS_GHC -fno-warn-orphans #-}
+{-# LANGUAGE InstanceSigs          #-}
+{-# LANGUAGE NoImplicitPrelude     #-}
+{-# LANGUAGE PartialTypeSignatures #-}
+{-# LANGUAGE ViewPatterns          #-}
+module Crypto.Hash.Types.Digest.Read where
+import           Rebase.Prelude          hiding (hash)
+
+import           Crypto.Hash
+import           Data.ByteArray.Encoding
+import qualified Rebase.Data.Text        as Text
+
+instance HashAlgorithm a =>
+         Read (Digest a) where
+  readsPrec :: Int -> (String -> [(Digest a, String)])
+  readsPrec _ (Text.encodeUtf8 . Text.pack -> bytes) =
+    toList $ (flip (,) "") <$> (digestFromByteString =<< baseConv bytes)
+    where
+      baseConv :: ByteString -> Maybe (ByteString)
+      baseConv = listToMaybe . toList . convertFromBase Base16
diff --git a/stack.yaml b/stack.yaml
new file mode 100644
index 0000000..c7632a6
--- /dev/null
+++ b/stack.yaml
@@ -0,0 +1,5 @@
+resolver: lts-11.13
+packages:
+- .
+extra-deps:
+- rebase-1.2.4