some junk, stash in testcookie for now

1 files changed, 13 insertions, 1 deletions

diff --git a/examples/testcookie.hs b/examples/testcookie.hs
index 5f5d4e83..4302ad35 100644
--- a/examples/testcookie.hs
+++ b/examples/testcookie.hs
@@ -11,6 +11,9 @@ import Network.Tox.DHT.Transport (Cookie(..))
 
 import Data.Serialize as S
 
+import Network.Tox.Crypto.Transport
+import Data.Word
+
 --
 -- Some relevant functions:
 --
@@ -50,4 +53,13 @@ main = do
             exitFailure
         Right  n24' -> do
           putStrLn $ "n24' = " ++ show n24'
-          if n24' == n24 then exitSuccess else exitFailure
+          if n24' == n24 then doContinue else exitFailure
+
+doContinue = do
+    let allmsgids = [Padding .. Messenger255]
+        allgrpmsgids = [Ping .. MessageName0xff]
+        allmsgs = map Msg allmsgids 
+               ++ concatMap (\x -> [GrpMsg KnownLossless x,GrpMsg KnownLossy x]) allgrpmsgids
+        typmap :: [(MessageType,Word64)]
+        typmap =  map (\x -> (x, toWord64 x)) allmsgs
+    mapM_ print typmap