diff options
author | Andrew Cady <d@jerkface.net> | 2019-06-22 19:04:19 -0400 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2019-07-01 06:05:06 -0400 |
commit | ffdaafd6675ab7768a748520e3fbe9c25dd6627c (patch) | |
tree | f231f1ef26e30faf8b81971a69395ec4eeda9536 /lib | |
parent | 01c15153208afc08092fd7c708ab2da85588e0de (diff) |
correct typo
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Kiki.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Kiki.hs b/lib/Kiki.hs index 2198fb7..282fd48 100644 --- a/lib/Kiki.hs +++ b/lib/Kiki.hs | |||
@@ -493,8 +493,8 @@ refreshCache rt rootdir = do | |||
493 | let (addr,(ns,_)) = getHostnames kd | 493 | let (addr,(ns,_)) = getHostnames kd |
494 | fmap (\n -> (n,addr, kd)) $ listToMaybe ns -- only first onion name. | 494 | fmap (\n -> (n,addr, kd)) $ listToMaybe ns -- only first onion name. |
495 | 495 | ||
496 | installConctact :: (L.ByteString, SockAddr, KeyData) -> IO Char8.ByteString | 496 | installContact :: (L.ByteString, SockAddr, KeyData) -> IO Char8.ByteString |
497 | installConctact (contactname,addr,kd) = do | 497 | installContact (contactname,addr,kd) = do |
498 | 498 | ||
499 | let cpath = interp (Map.singleton "onion" (Char8.unpack contactname)) "ipsec.d/certs/%(onion).pem" | 499 | let cpath = interp (Map.singleton "onion" (Char8.unpack contactname)) "ipsec.d/certs/%(onion).pem" |
500 | their_master = packet $ keyMappedPacket kd | 500 | their_master = packet $ keyMappedPacket kd |
@@ -528,7 +528,7 @@ refreshCache rt rootdir = do | |||
528 | 528 | ||
529 | writeL (mkpath "ssh_known_hosts") known_hosts | 529 | writeL (mkpath "ssh_known_hosts") known_hosts |
530 | 530 | ||
531 | cons <- mapM installConctact cs | 531 | cons <- mapM installContact cs |
532 | writeL (mkpath "ipsec.conf") . Char8.unlines | 532 | writeL (mkpath "ipsec.conf") . Char8.unlines |
533 | $ [ "conn %default" | 533 | $ [ "conn %default" |
534 | , " ikelifetime=60m" | 534 | , " ikelifetime=60m" |