From c6debd6fdfe65bdadf71386c63b160e476fe40dc Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 16 Nov 2017 14:54:11 -0400 Subject: fix haddock build --- src/Propellor/Property/Fail2Ban.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Propellor/Property/Fail2Ban.hs b/src/Propellor/Property/Fail2Ban.hs index 6428a19f..342e2acb 100644 --- a/src/Propellor/Property/Fail2Ban.hs +++ b/src/Propellor/Property/Fail2Ban.hs @@ -34,8 +34,8 @@ jailEnabled' name settings = -- > jailConfigured' "sshd" [("port", "2222")] jailConfigured' :: Jail -> [(IniKey, String)] -> Property UnixLike jailConfigured' name settings = propertyList ("jail \"" ++ name ++ "\" configuration") $ props + -- removes .conf files added by old versions of Fail2Ban properties & File.notPresent (oldJailConfFile name) - -- ^ removes .conf files added by old versions of Fail2Ban properties & jailConfFile name `iniFileContains` [(name, settings)] -- | Adds a setting to a given jail. For example: @@ -43,8 +43,8 @@ jailConfigured' name settings = propertyList ("jail \"" ++ name ++ "\" configura -- > jailConfigured "sshd" "port" "2222" jailConfigured :: Jail -> IniKey -> String -> Property UnixLike jailConfigured name key value = propertyList ("jail \"" ++ name ++ "\" configuration") $ props + -- removes .conf files added by old versions of Fail2Ban properties & File.notPresent (oldJailConfFile name) - -- ^ removes .conf files added by old versions of Fail2Ban properties & jailConfFile name `containsIniSetting` (name, key, value) oldJailConfFile :: Jail -> FilePath -- cgit v1.2.3