avoid haddock warnings

src/Propellor/Property/Firewall.hs

@@ -9,6 +9,7 @@ module Propellor.Property.Firewall (
 	Target(..),
 	Proto(..),
 	Rules(..),
+	Port,
 	ConnectionState(..)
 ) where
 

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

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

src/Propellor/Property/Ssh.hs

@@ -1,4 +1,5 @@
 module Propellor.Property.Ssh (
+	PubKeyText,
 	setSshdConfig,
 	permitRootLogin,
 	passwordAuthentication,

src/Propellor/Property/Systemd.hs

@@ -1,5 +1,7 @@
 module Propellor.Property.Systemd (
 	module Propellor.Property.Systemd.Core,
+	ServiceName,
+	MachineName,
 	started,
 	stopped,
 	enabled,

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(..)