summaryrefslogtreecommitdiff
path: root/config-simple.hs
diff options
context:
space:
mode:
authorJoey Hess2016-04-13 12:38:39 -0400
committerJoey Hess2016-04-13 12:38:39 -0400
commiteda801d9f5ce8db50fc639bae916e10e67bc6ff9 (patch)
tree26f6accb048db229caeba221f9010b8bc97c0c48 /config-simple.hs
parenta6f1745879ef3af53d6bd770b1ac634cf3cd4a0a (diff)
undo
Diffstat (limited to 'config-simple.hs')
-rw-r--r--config-simple.hs33
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
-