spelling

2 files changed, 12 insertions, 12 deletions

diff --git a/Connection/Tox.hs b/Connection/Tox.hs
index 56777e99..3f5f7e2c 100644
--- a/Connection/Tox.hs
+++ b/Connection/Tox.hs
@@ -150,7 +150,7 @@ setToxPolicy params conmap k@(Key me them) policy = do
         r <- atomically $ lookupContact k (roster params)
         dput XMan $ "C.r="++show (fmap (const ()) r)
         forM_ r $ \(sec,c) -> do
-        let persue_methods = PersueContactMethods
+        let pursue_methods = PursueContactMethods
                 { allsessions        = sessions params
                 , myseckey           = sec
                 , theirpubkey        = id2key them
@@ -183,9 +183,9 @@ setToxPolicy params conmap k@(Key me them) policy = do
         forM_ mst $ \st -> do
             let getPolicy = readTVar $ connPolicy st
             tasks <- atomically $ readTVar (handshakeTask st)
-            persuing <- launch ("persue:"++show k)
+            persuing <- launch ("pursue:"++show k)
                                 (G.InProgress $ toEnum 0)
-                               $ persueContact  getPolicy get_status persue_methods
+                               $ pursueContact  getPolicy get_status pursue_methods
             atomically $ do
                 writeTVar (handshakeTask st) $ persuing
                 let routing   = dhtRouting params
diff --git a/Connection/Tox/Threads.hs b/Connection/Tox/Threads.hs
index f3c94fc1..ba49b7dc 100644
--- a/Connection/Tox/Threads.hs
+++ b/Connection/Tox/Threads.hs
@@ -4,16 +4,16 @@
 --
 --  * 'acceptContact'
 --
---  * 'persueContact'
+--  * 'pursueContact'
 --
 --  * 'freshenContact'
 --
 {-# LANGUAGE CPP        #-}
 {-# LANGUAGE LambdaCase #-}
 module Connection.Tox.Threads
-  ( PersueContactMethods(..)
+  ( PursueContactMethods(..)
   , FreshenContactMethods(..)
-  , persueContact
+  , pursueContact
   ) where
 
 import Connection
@@ -101,7 +101,7 @@ whileTryingAndNotEstablished getPolicy getStatus statusVar body = fix $ \loop ->
         (ifEstablished retry
                        (body retryAfterTimeout))
 
-data PersueContactMethods = PersueContactMethods
+data PursueContactMethods = PursueContactMethods
     { allsessions        :: NetCryptoSessions
     , myseckey           :: SecretKey
     , theirpubkey        :: PublicKey
@@ -119,12 +119,12 @@ retryUntilJust tvar = maybe retry return =<< readTVar tvar
 --
 -- As long as getPolicy is TryingToConnect and there is no established
 -- connection, this function will continue.
-persueContact :: STM Policy
+pursueContact :: STM Policy
                  -> STM (Status t)
-                 -> PersueContactMethods
+                 -> PursueContactMethods
                  -> TVar (Status ToxProgress)
                  -> IO ()
-persueContact getPolicy getStatus PersueContactMethods{..} statusVar = do
+pursueContact getPolicy getStatus PursueContactMethods{..} statusVar = do
     -- AwaitingDHTKey
     atomically $ writeTVar statusVar (InProgress AwaitingDHTKey)
     whileTryingAndNotEstablished getPolicy getStatus statusVar
@@ -151,8 +151,8 @@ persueContact getPolicy getStatus PersueContactMethods{..} statusVar = do
                                 DHT.cookieRequest crypto client (toPublic myseckey) ni
                     interval <- case mbCookie of
                           Nothing -> do
-                            dput XMan ("persueContact: (" ++ show mykeyAsId ++") <--> (" ++ show theirkeyAsId ++ ").")
-                            dput XMan ("persueContact: CookieRequest failed. TODO: dhtpkNodes thingy")
+                            dput XMan ("pursueContact: (" ++ show mykeyAsId ++") <--> (" ++ show theirkeyAsId ++ ").")
+                            dput XMan ("pursueContact: CookieRequest failed. TODO: dhtpkNodes thingy")
                             return longRetryInterval
                           Just cookie -> do
                             dput XMan "Have cookie, creating handshake packet..."