From 2812719e5466d2676db3fd5c4ac36c45bb873e89 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 18 Jul 2014 01:03:05 -0400
Subject: propellor spin

---
 src/Propellor/Property/Postfix.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/Propellor/Property/Postfix.hs')

diff --git a/src/Propellor/Property/Postfix.hs b/src/Propellor/Property/Postfix.hs
index 3b35eee6..1711a7dd 100644
--- a/src/Propellor/Property/Postfix.hs
+++ b/src/Propellor/Property/Postfix.hs
@@ -3,6 +3,7 @@ module Propellor.Property.Postfix where
 import Propellor
 import qualified Propellor.Property.Apt as Apt
 import Propellor.Property.File
+import qualified Propellor.Property.Service as Service
 
 import qualified Data.Map as M
 import Data.List
@@ -11,6 +12,9 @@ import Data.Char
 installed :: Property
 installed = Apt.serviceInstalledRunning "postfix"
 
+restarted :: Property
+restarted = Service.restarted "postfix"
+
 -- | Configures postfix as a satellite system, which 
 -- relats all mail through a relay host, which defaults to smtp.domain. 
 --
@@ -36,6 +40,11 @@ mappedFile :: FilePath -> (FilePath -> Property) -> Property
 mappedFile f setup = setup f
 	`onChange` cmdProperty "postmap" [f]
 
+-- | Run newaliases command, which should be done after changing
+-- /etc/aliases.
+newaliases :: Property
+newaliases = trivial $ cmdProperty "newaliases" []
+
 -- | Parses main.cf, and removes any initial configuration lines that are
 -- overridden to other values later in the file.
 --
-- 
cgit v1.3-2-g0d8e