From 706acef0d7d674ad229e00fc844c8aaf836dec91 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Mon, 1 Jul 2019 16:05:26 -0400 Subject: update stackage to lts-13.26 and fix build --- examples/testTox.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'examples') 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" -- cgit v1.2.3