From ffdaafd6675ab7768a748520e3fbe9c25dd6627c Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Sat, 22 Jun 2019 19:04:19 -0400
Subject: correct typo

---
 lib/Kiki.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib')

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
             let (addr,(ns,_)) = getHostnames kd
             fmap (\n -> (n,addr, kd)) $ listToMaybe ns -- only first onion name.
 
-        installConctact :: (L.ByteString, SockAddr, KeyData) -> IO Char8.ByteString
-        installConctact (contactname,addr,kd) = do
+        installContact :: (L.ByteString, SockAddr, KeyData) -> IO Char8.ByteString
+        installContact (contactname,addr,kd) = do
 
             let cpath = interp (Map.singleton "onion" (Char8.unpack contactname)) "ipsec.d/certs/%(onion).pem"
                 their_master = packet $ keyMappedPacket kd
@@ -528,7 +528,7 @@ refreshCache rt rootdir = do
 
     writeL (mkpath "ssh_known_hosts") known_hosts
 
-    cons <- mapM installConctact cs
+    cons <- mapM installContact cs
     writeL (mkpath "ipsec.conf") . Char8.unlines
           $ [ "conn %default"
             , "  ikelifetime=60m"
-- 
cgit v1.2.3