diff options
Diffstat (limited to 'src/Propellor/Property/Munin.hs')
-rw-r--r-- | src/Propellor/Property/Munin.hs | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/src/Propellor/Property/Munin.hs b/src/Propellor/Property/Munin.hs deleted file mode 100644 index 43112a6c6..000000000 --- a/src/Propellor/Property/Munin.hs +++ /dev/null @@ -1,57 +0,0 @@ --- | Maintainer: Jelmer Vernooij <jelmer@jelmer.uk> --- -module Propellor.Property.Munin ( - hostListFragment, - hostListFragment', - nodePort, - nodeInstalled, - nodeRestarted, - nodeConfPath, - masterInstalled, - masterRestarted, - masterConfPath, -) where - -import Propellor -import qualified Propellor.Property.Apt as Apt -import qualified Propellor.Property.Service as Service - -nodePort :: Integer -nodePort = 4949 - -nodeInstalled :: Property NoInfo -nodeInstalled = Apt.serviceInstalledRunning "munin-node" - -nodeRestarted :: Property NoInfo -nodeRestarted = Service.restarted "munin-node" - -nodeConfPath :: FilePath -nodeConfPath = "/etc/munin/munin-node.conf" - -masterInstalled :: Property NoInfo -masterInstalled = Apt.serviceInstalledRunning "munin" - -masterRestarted :: Property NoInfo -masterRestarted = Service.restarted "munin" - -masterConfPath :: FilePath -masterConfPath = "/etc/munin/munin.conf" - - --- | Create the host list fragment for master config. --- Takes an optional override list for hosts that are accessible on a non-standard host/port. --- TODO(jelmer): Only do this on hosts where munin is present (in other words, with Munin.installedNode) -hostListFragment' :: [Host] -> [(HostName, (IPAddr, Port))] -> [String] -hostListFragment' hs os = concatMap muninHost hs - where - muninHost :: Host -> [String] - muninHost h = [ "[" ++ (hostName h) ++ "]" - , " address " ++ maybe (hostName h) (fromIPAddr . fst) (hOverride h) - ] ++ (maybe [] (\x -> [" port " ++ (show $ fromPort $ snd x)]) (hOverride h)) ++ [""] - hOverride :: Host -> Maybe (IPAddr, Port) - hOverride h = lookup (hostName h) os - fromPort (Port p) = p - --- | Create the host list fragment for master config. -hostListFragment :: [Host] -> [String] -hostListFragment hs = hostListFragment' hs [] |