From a2a97cbeb2566de37ef3d1b108894246457d4113 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 19 Jan 2015 14:26:18 -0400 Subject: avoid haddock warnings --- src/Propellor/Property/Firewall.hs | 1 + src/Propellor/Property/Grub.hs | 4 ++-- src/Propellor/Property/Postfix.hs | 4 ++-- src/Propellor/Property/Ssh.hs | 1 + src/Propellor/Property/Systemd.hs | 2 ++ src/Propellor/Types.hs | 6 +----- 6 files changed, 9 insertions(+), 9 deletions(-) (limited to 'src') diff --git a/src/Propellor/Property/Firewall.hs b/src/Propellor/Property/Firewall.hs index 3018f989..f9a027be 100644 --- a/src/Propellor/Property/Firewall.hs +++ b/src/Propellor/Property/Firewall.hs @@ -9,6 +9,7 @@ module Propellor.Property.Firewall ( Target(..), Proto(..), Rules(..), + Port, ConnectionState(..) ) where diff --git a/src/Propellor/Property/Grub.hs b/src/Propellor/Property/Grub.hs index 71593523..0e89196c 100644 --- a/src/Propellor/Property/Grub.hs +++ b/src/Propellor/Property/Grub.hs @@ -4,10 +4,10 @@ import Propellor import qualified Propellor.Property.File as File import qualified Propellor.Property.Apt as Apt --- | Eg, "hd0,0" or "xen/xvda1" +-- | Eg, \"hd0,0\" or \"xen/xvda1\" type GrubDevice = String --- | Eg, "/dev/sda" +-- | Eg, \"\/dev/sda\" type OSDevice = String type TimeoutSecs = Int diff --git a/src/Propellor/Property/Postfix.hs b/src/Propellor/Property/Postfix.hs index 7821b333..cdb7bdee 100644 --- a/src/Propellor/Property/Postfix.hs +++ b/src/Propellor/Property/Postfix.hs @@ -77,8 +77,8 @@ getMainCf name = parse . lines <$> readProcess "postconf" [name] (_, v) -> v parse [] = Nothing --- | Checks if a main.cf field is set. A field that is set to "" --- is considered not set. +-- | Checks if a main.cf field is set. A field that is set to +-- the empty string is considered not set. mainCfIsSet :: String -> IO Bool mainCfIsSet name = do v <- getMainCf name diff --git a/src/Propellor/Property/Ssh.hs b/src/Propellor/Property/Ssh.hs index 238e67e4..791b363b 100644 --- a/src/Propellor/Property/Ssh.hs +++ b/src/Propellor/Property/Ssh.hs @@ -1,4 +1,5 @@ module Propellor.Property.Ssh ( + PubKeyText, setSshdConfig, permitRootLogin, passwordAuthentication, diff --git a/src/Propellor/Property/Systemd.hs b/src/Propellor/Property/Systemd.hs index 7fe600a0..613ed01c 100644 --- a/src/Propellor/Property/Systemd.hs +++ b/src/Propellor/Property/Systemd.hs @@ -1,5 +1,7 @@ module Propellor.Property.Systemd ( module Propellor.Property.Systemd.Core, + ServiceName, + MachineName, started, stopped, enabled, diff --git a/src/Propellor/Types.hs b/src/Propellor/Types.hs index 9f1c8f1b..728cebc1 100644 --- a/src/Propellor/Types.hs +++ b/src/Propellor/Types.hs @@ -4,14 +4,10 @@ module Propellor.Types ( Host(..) , Info(..) - , getInfoRecursive , Propellor(..) , Property(..) , RevertableProperty(..) - , IsProp - , describe - , toProp - , requires + , IsProp(..) , Desc , Result(..) , ToResult(..) -- cgit v1.2.3