summaryrefslogtreecommitdiff
path: root/config-simple.hs
diff options
context:
space:
mode:
authorJoey Hess2014-04-03 12:06:58 -0400
committerJoey Hess2014-04-03 12:06:58 -0400
commit5a94d48f3ae0ae601fbe42bb13e608bb2e84e17f (patch)
treeac4fae51899e078c445658f8e144d96064fe5706 /config-simple.hs
parentd4b89d7c539f719eb81e7cdac6755a403145182e (diff)
reorg configs
Diffstat (limited to 'config-simple.hs')
-rw-r--r--config-simple.hs52
1 files changed, 52 insertions, 0 deletions
diff --git a/config-simple.hs b/config-simple.hs
new file mode 100644
index 00000000..840bad02
--- /dev/null
+++ b/config-simple.hs
@@ -0,0 +1,52 @@
+-- | This is the main configuration file for Propellor, and is used to build
+-- the propellor program.
+
+import Propellor
+import Propellor.CmdLine
+import qualified Propellor.Property.File as File
+import qualified Propellor.Property.Apt as Apt
+import qualified Propellor.Property.Network as Network
+import qualified Propellor.Property.Ssh as Ssh
+import qualified Propellor.Property.Cron as Cron
+import qualified Propellor.Property.Sudo as Sudo
+import qualified Propellor.Property.User as User
+import qualified Propellor.Property.Hostname as Hostname
+import qualified Propellor.Property.Reboot as Reboot
+import qualified Propellor.Property.Docker as Docker
+
+main :: IO ()
+main = defaultMain [host, Docker.containerProperties container]
+
+-- | This is where the system's HostName, either as returned by uname
+-- or one specified on the command line, is converted into a list of
+-- Properties for that system.
+--
+-- Edit this to configure propellor!
+host :: HostName -> Maybe [Property]
+host hostname@"mybox.example.com" = Just $ props
+ & Apt.stdSourcesList Unstable
+ `onChange` Apt.upgrade
+ & Apt.unattendedUpgrades
+ & Apt.installed ["etckeeper"]
+ & Apt.installed ["ssh"]
+ & User.hasSomePassword "root"
+ & Network.ipv6to4
+ & File.dirExists "/var/www"
+ & Docker.docked container hostname "webserver"
+ & Docker.garbageCollected
+ & Cron.runPropellor "30 * * * *"
+-- add more hosts here...
+--host "foo.example.com" =
+host _ = Nothing
+
+-- | This is where Docker containers are set up. A container
+-- can vary by hostname where it's used, or be the same everywhere.
+container :: HostName -> Docker.ContainerName -> Maybe (Docker.Container)
+container _ "webserver" = Just $ Docker.containerFrom "joeyh/debian-unstable"
+ [ Docker.publish "80:80"
+ , Docker.volume "/var/www:/var/www"
+ , Docker.inside $ props
+ & serviceRunning "apache2"
+ `requires` Apt.installed ["apache2"]
+ ]
+container _ _ = Nothing