debug traces, handle Nothing case in ncToWire

1 files changed, 4 insertions, 1 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index c731c82b..f4199374 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -46,6 +46,7 @@ import qualified Data.IntMap.Strict as IntMap
 import Control.Concurrent.Supply
 import Data.InOrOut
 import DPut
+import Debug.Trace
 
 -- util, todo: move to another module
 maybeToEither :: Maybe b -> Either String b
@@ -363,8 +364,10 @@ ncToWire getState seqno bufend pktno msg = do
                     GrpMsg KnownLossless _ -> Lossless
     (state,n24,msgOutMapVar) <- getState
     -- msgOutMap <- readTVar msgOutMapVar
-    result1 <- lookupInRangeMap typ64 msgOutMapVar
+    result1 <- trace ("lookupInRangeMap typ64=" ++ show typ64)
+                     $ lookupInRangeMap typ64 msgOutMapVar
     case result1 of -- msgOutMapLookup typ64 msgOutMap of
+        Nothing -> trace "lookupInRangeMap gave Nothing!" $ return Nothing
         Just outid -> do
             let setMessageId (OneByte _)   mid = OneByte (toEnum8 mid)
                 setMessageId (TwoByte _ x) mid = TwoByte (toEnum8 mid) x