From eda801d9f5ce8db50fc639bae916e10e67bc6ff9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 13 Apr 2016 12:38:39 -0400 Subject: undo --- config-simple.hs | 33 --------------------------------- 1 file changed, 33 deletions(-) (limited to 'config-simple.hs') 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 - -- cgit v1.2.3