diff options
| author | Félix Sipma <felix.sipma@no-log.org> | 2018-02-24 21:31:03 +0100 |
|---|---|---|
| committer | Félix Sipma <felix.sipma@no-log.org> | 2018-02-24 21:31:03 +0100 |
| commit | c16bc5a806d0020f608a35185127430b65253981 (patch) | |
| tree | 851d64ee5ca0471e5822d25d7262bc9632d33f27 /src | |
| parent | 788ad7bcff61147dbdde484d8d56ff6aead82659 (diff) | |
Openssl: fix typo
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Openssl.hs | 4 |
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 -> |