summaryrefslogtreecommitdiff
path: root/lib/Kiki.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Kiki.hs')
-rw-r--r--lib/Kiki.hs6
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"