summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Postfix.hs
diff options
context:
space:
mode:
authorJoey Hess2014-07-18 14:42:46 -0400
committerJoey Hess2014-07-18 14:42:46 -0400
commitef472be6a6e1270245ec50554d6d59c31e1e733d (patch)
tree671ed508106421533a29246066e6d472142e646b /src/Propellor/Property/Postfix.hs
parent43116fd19893e79fbf39c6dffdc1717cd4a7c7df (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Property/Postfix.hs')
-rw-r--r--src/Propellor/Property/Postfix.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Property/Postfix.hs b/src/Propellor/Property/Postfix.hs
index a9815226..b3d12727 100644
--- a/src/Propellor/Property/Postfix.hs
+++ b/src/Propellor/Property/Postfix.hs
@@ -82,7 +82,7 @@ getMainCf name = parse . lines <$> readProcess "postconf" [name]
mainCfIsSet :: String -> IO Bool
mainCfIsSet name = do
v <- getMainCf name
- return $ v == Nothing || v == Just ""
+ return $ v /= Nothing && v /= Just ""
-- | Parses main.cf, and removes any initial configuration lines that are
-- overridden to other values later in the file.