update stackage to lts-13.26 and fix build

1 files changed, 5 insertions, 3 deletions

diff --git a/examples/testTox.hs b/examples/testTox.hs
index e82ca2d3..67c4daef 100644
--- a/examples/testTox.hs
+++ b/examples/testTox.hs
@@ -34,7 +34,8 @@ import qualified Data.HashMap.Strict as HashMap
 import qualified Data.Map.Strict as Map
 import Data.Time.Clock.POSIX
 import System.Exit
-
+import Data.Dependent.Sum
+import Data.Tox.Msg
 
 makeToxNode :: UDPTransport -> Maybe SecretKey
         -> ( ContactInfo extra -> SockAddr -> Session -> IO () )
@@ -46,6 +47,7 @@ makeToxNode udp sec onSessionF = do
                         onSessionF
                         sec
                         udp
+                        (\_ _ -> return ())
 
 
 setToxID :: Tox () -> Maybe SecretKey -> IO ()
@@ -161,7 +163,7 @@ main = do
         case Map.lookup b_public mp_a of
             Just [session] -> do
                 dput XUnused "----------------- HOWDY ---------------"
-                sendMessage (sTransport session) () (UpToN MESSAGE "Howdy")
+                sendMessage (sTransport session) () (Pkt MESSAGE :=> "Howdy")
             Just xs -> dput XUnused "Unexpectedly a has TOO MANY sesions for b"
             Nothing -> dput XUnused "Unexpectedly a has NO session for b"
         -- b says "Hey you!"
@@ -169,7 +171,7 @@ main = do
         case Map.lookup a_public mp_b of
             Just [session] -> do
                 dput XUnused "----------------- HEY YOU ---------------"
-                sendMessage (sTransport session) () (UpToN MESSAGE "Hey you!")
+                sendMessage (sTransport session) () (Pkt MESSAGE :=> "Hey you!")
             Just xs -> dput XUnused "Unexpectedly b has TOO MANY sesions for a"
             Nothing -> dput XUnused "Unexpectedly b has NO session for a"