summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Propellor/Property/Openssl.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Property/Openssl.hs b/src/Propellor/Property/Openssl.hs
index 1967301c..a91b8195 100644
--- a/src/Propellor/Property/Openssl.hs
+++ b/src/Propellor/Property/Openssl.hs
@@ -20,9 +20,9 @@ dhparams = "/etc/ssl/private/dhparams.pem"
safeDhparams :: Property DebianLike
safeDhparams = propertyList "safe dhparams" $ props
- & File.dirExists (takeDirectory file)
+ & File.dirExists (takeDirectory dhparams)
& installed
- & check (not <$> doesFileExist file) (createDhparams file length')
+ & check (not <$> doesFileExist dhparams) (createDhparams dhparams dhparamsLength)
createDhparams :: FilePath -> Int -> Property UnixLike
createDhparams f l = property ("generate new dhparams: " ++ f) $ liftIO $ withUmask 0o0177 $ withFile f WriteMode $ \h ->