diff --git a/src/Propellor/Property/Postfix.hs b/src/Propellor/Property/Postfix.hs index a981522..b3d1272 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.