summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Openssl.hs
diff options
context:
space:
mode:
authorFélix Sipma2018-02-24 21:31:03 +0100
committerFélix Sipma2018-02-24 21:31:03 +0100
commitc16bc5a806d0020f608a35185127430b65253981 (patch)
tree851d64ee5ca0471e5822d25d7262bc9632d33f27 /src/Propellor/Property/Openssl.hs
parent788ad7bcff61147dbdde484d8d56ff6aead82659 (diff)
Openssl: fix typo
Diffstat (limited to 'src/Propellor/Property/Openssl.hs')
-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 ->