TCP Client, WIP.

1 files changed, 6 insertions, 6 deletions

diff --git a/src/Data/Tox/Relay.hs b/src/Data/Tox/Relay.hs
index 72a05660..1437c9cd 100644
--- a/src/Data/Tox/Relay.hs
+++ b/src/Data/Tox/Relay.hs
@@ -41,8 +41,8 @@ data RelayPacket
     | RoutingResponse ConId PublicKey -- 0 for refusal, 16-255 for success.
     | ConnectNotification ConId
     | DisconnectNotification ConId
-    | RelayPing Word64
-    | RelayPong Word64
+    | RelayPing Nonce8
+    | RelayPong Nonce8
     | OOBSend PublicKey ByteString
     | OOBRecv PublicKey ByteString
     | OnionPacket (OnionRequest N0)
@@ -82,8 +82,8 @@ instance Serialize RelayPacket where
             1 -> RoutingResponse <$> get <*> getPublicKey
             2 -> ConnectNotification <$> get
             3 -> DisconnectNotification <$> get
-            4 -> RelayPing <$> getWord64be
-            5 -> RelayPong <$> getWord64be
+            4 -> RelayPing <$> get
+            5 -> RelayPong <$> get
             6 -> OOBSend <$> getPublicKey <*> (remaining >>= getBytes)
             7 -> OOBRecv <$> getPublicKey <*> (remaining >>= getBytes)
             8 -> OnionPacket <$> get
@@ -97,8 +97,8 @@ instance Serialize RelayPacket where
             RoutingResponse rpid k       -> put rpid >> putPublicKey k
             ConnectNotification conid    -> put conid
             DisconnectNotification conid -> put conid
-            RelayPing pingid             -> putWord64be pingid
-            RelayPong pingid             -> putWord64be pingid
+            RelayPing pingid             -> put pingid
+            RelayPong pingid             -> put pingid
             OOBSend k bs                 -> putPublicKey k >> putByteString bs
             OOBRecv k bs                 -> putPublicKey k >> putByteString bs
             OnionPacket query            -> put query