diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-04-13 12:38:39 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-04-13 12:38:39 -0400 |
| commit | eda801d9f5ce8db50fc639bae916e10e67bc6ff9 (patch) | |
| tree | 26f6accb048db229caeba221f9010b8bc97c0c48 | |
| parent | a6f1745879ef3af53d6bd770b1ac634cf3cd4a0a (diff) | |
undo
| -rw-r--r-- | config-simple.hs | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/config-simple.hs b/config-simple.hs index d50dc568..42b3d838 100644 --- a/config-simple.hs +++ b/config-simple.hs @@ -7,13 +7,6 @@ import qualified Propellor.Property.Apt as Apt import qualified Propellor.Property.Cron as Cron import qualified Propellor.Property.User as User -import System.FilePath -import Propellor.Types.Core -import qualified Propellor.Property.Chroot as Chroot -import Propellor.Property.Chroot -import qualified Propellor.Property.Mount as Mount -import Control.Monad.IO.Class - main :: IO () main = defaultMain hosts @@ -34,29 +27,3 @@ mybox = host "mybox.example.com" $ props & User.hasSomePassword (User "root") & File.dirExists "/var/www" & Cron.runPropellor (Cron.Times "30 * * * *") - -schroot :: String -> Chroot -> RevertableProperty (HasInfo + DebianLike) DebianLike -schroot sn chroot@(Chroot.Chroot chrootdir _ _) = (setup `requires` installed) <!> cleanup - where - setup :: Property (HasInfo + DebianLike) - setup = conf `requires` (provision `onChange` targz) - where - provision :: Property (HasInfo + DebianLike) - provision = setupRevertableProperty (Chroot.provisioned chroot) `before` umount - where - umount :: Property Linux - umount = property ("umount " ++ chrootdir) $ do - liftIO $ Mount.unmountBelow chrootdir - return NoChange - cleanup :: Property DebianLike - cleanup = File.notPresent (schrootChrootD </> sn) - `requires` File.notPresent tarball - `requires` revert (Chroot.provisioned chroot) - tarball = chrootdir <.> "tar.gz" - -- dummy stuff added to make it compile as I don't have the real - -- stuff handy. - installed = undefined :: Property DebianLike - conf = undefined :: Property DebianLike - targz = undefined :: Property DebianLike - schrootChrootD = undefined :: FilePath - |