fix In/Out tags on addMsgToLastN

1 files changed, 8 insertions, 8 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index b227e5ee..e6bb8371 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -755,7 +755,7 @@ sendOffline crypto session = sendCrypto crypto session (return ()) (OneByte OFFL
 sendKill :: TransportCrypto -> NetCryptoSession -> IO (Either String ())
 sendKill crypto session = do
     let cm=OneByte KillPacket
-    addMsgToLastN False (cm ^. messageType) session cm
+    addMsgToLastN False (cm ^. messageType) session (Out cm)
     sendCrypto crypto session (return ()) cm
 
 setNick :: TransportCrypto -> NetCryptoSession -> ByteString -> IO (Either String ())
@@ -769,7 +769,7 @@ setNick crypto session nick = do
                 view <- readTVar viewVar
                 writeTVar (svNick view) nick
         let cm = UpToN NICKNAME nick
-        addMsgToLastN False (cm ^. messageType) session cm
+        addMsgToLastN False (cm ^. messageType) session (Out cm)
         sendCrypto crypto session updateLocal cm
 
 setTyping :: TransportCrypto -> NetCryptoSession -> TypingStatus -> IO (Either String ())
@@ -778,7 +778,7 @@ setTyping crypto session status = do
         view <- readTVar (ncView session)
         writeTVar (svTyping view) status
    let cm = TwoByte TYPING (fromEnum8 status)
-   addMsgToLastN False (cm ^. messageType) session cm
+   addMsgToLastN False (cm ^. messageType) session (Out cm)
    sendCrypto crypto session updateLocal cm
 
 setNoSpam :: TransportCrypto -> NetCryptoSession -> Maybe NoSpam -> IO (Either String ())
@@ -795,7 +795,7 @@ setStatus crypto session status = do
         view <- readTVar (ncView session)
         writeTVar (svStatus view) status
    let cm = TwoByte USERSTATUS (fromEnum8 status)
-   addMsgToLastN False (cm ^. messageType) session cm
+   addMsgToLastN False (cm ^. messageType) session (Out cm)
    sendCrypto crypto session updateLocal cm
 
 setStatusMsg :: TransportCrypto -> NetCryptoSession -> ByteString -> IO (Either String ())
@@ -808,7 +808,7 @@ setStatusMsg crypto session msg = do
                 view <- readTVar (ncView session)
                 writeTVar (svStatusMsg view) msg
         let cm = UpToN STATUSMESSAGE msg
-        addMsgToLastN False (cm ^. messageType) session cm
+        addMsgToLastN False (cm ^. messageType) session (Out cm)
         sendCrypto crypto session updateLocal cm
 
 -- | handles nothings
@@ -866,7 +866,7 @@ hookHelper _ typ session cm | any ($ typ) [isKillPacket, isOFFLINE] = atomically
     return Nothing
 
 hookHelper handledFlg typ  session  cm = do
-    addMsgToLastN handledFlg typ session cm
+    addMsgToLastN handledFlg typ session (In cm)
     atomically $ do
         idtmchans <- IntMap.assocs <$> readTVar (ncListeners session)
         mbChans
@@ -881,7 +881,7 @@ hookHelper handledFlg typ  session  cm = do
             writeTMChan chan cm
     return Nothing
 
-addMsgToLastN :: Bool -> MessageType -> NetCryptoSession -> CryptoMessage -> IO ()
+addMsgToLastN :: Bool -> MessageType -> NetCryptoSession -> InOrOut CryptoMessage -> IO ()
 addMsgToLastN handledFlg typ session cm = do
     let lastNQ = ncLastNMsgs session
         msgNumVar = ncMsgNumVar session
@@ -890,7 +890,7 @@ addMsgToLastN handledFlg typ session cm = do
         num <- readTVar msgNumVar
         view <- readTVar (ncView session)
         snapshot <- viewSnapshot view
-        (wraps,offset) <- PQ.enqueue lastNQ num (handledFlg,(snapshot,Out cm))
+        (wraps,offset) <- PQ.enqueue lastNQ num (handledFlg,(snapshot,cm))
         capacity <- PQ.getCapacity lastNQ
         let dropped = wraps * capacity + offset
         modifyTVar' msgNumVar (+1)