diff options
Diffstat (limited to 'config-simple.hs')
| -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 - |