propellor spin
This commit is contained in:
parent
43116fd198
commit
ef472be6a6
|
@ -82,7 +82,7 @@ getMainCf name = parse . lines <$> readProcess "postconf" [name]
|
||||||
mainCfIsSet :: String -> IO Bool
|
mainCfIsSet :: String -> IO Bool
|
||||||
mainCfIsSet name = do
|
mainCfIsSet name = do
|
||||||
v <- getMainCf name
|
v <- getMainCf name
|
||||||
return $ v == Nothing || v == Just ""
|
return $ v /= Nothing && v /= Just ""
|
||||||
|
|
||||||
-- | Parses main.cf, and removes any initial configuration lines that are
|
-- | Parses main.cf, and removes any initial configuration lines that are
|
||||||
-- overridden to other values later in the file.
|
-- overridden to other values later in the file.
|
||||||
|
|
Loading…
Reference in New Issue