correct typo

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
             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"