From ef472be6a6e1270245ec50554d6d59c31e1e733d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 18 Jul 2014 14:42:46 -0400 Subject: propellor spin --- src/Propellor/Property/Postfix.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/Property/Postfix.hs') 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. -- cgit v1.2.3