diff options
| author | James Crayne <jim.crayne@gmail.com> | 2016-04-26 23:34:18 -0400 |
|---|---|---|
| committer | James Crayne <jim.crayne@gmail.com> | 2016-04-26 23:34:18 -0400 |
| commit | 03f389091cf73cd4a2017dca2269ffae74269ba9 (patch) | |
| tree | abfe9af6145409f23ac41962901b1a2c11dd3801 /lib/Kiki.hs | |
| parent | 1bf85f3bbd62555d18f9b3ff064a8921048405e4 (diff) | |
port to process<1.2
Diffstat (limited to 'lib/Kiki.hs')
| -rw-r--r-- | lib/Kiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Kiki.hs b/lib/Kiki.hs index be15224..6b4ee83 100644 --- a/lib/Kiki.hs +++ b/lib/Kiki.hs | |||
| @@ -235,7 +235,7 @@ refreshCache rt rootdir = do | |||
| 235 | -- sshspathpub0 = fromMaybe "" rootdir ++ "/etc/ssh/ssh_host_rsa_key.pub" | 235 | -- sshspathpub0 = fromMaybe "" rootdir ++ "/etc/ssh/ssh_host_rsa_key.pub" |
| 236 | -- contactipsec0 = fromMaybe "" rootdir ++ "/etc/ipsec.d/certs/%(onion).pem" | 236 | -- contactipsec0 = fromMaybe "" rootdir ++ "/etc/ipsec.d/certs/%(onion).pem" |
| 237 | 237 | ||
| 238 | callCommand ("rm -rf "++ mkpath "*") -- clean up, in case gpg altered the keyring. | 238 | readProcessWithExitCode "rm" ["-rf", mkpath "*"] "" -- clean up, in case gpg altered the keyring. |
| 239 | 239 | ||
| 240 | flip (maybe $ warn "missing working key?") (rtWorkingKey rt) $ \wk -> do | 240 | flip (maybe $ warn "missing working key?") (rtWorkingKey rt) $ \wk -> do |
| 241 | 241 | ||