diff options
author | joe <joe@jerkface.net> | 2017-07-02 16:41:11 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2017-07-02 16:41:11 -0400 |
commit | be15a1ceba3b87f845d3b56915207457a94394ee (patch) | |
tree | e0d0bc153dab2ebbcb23a8a4a16b03efe2e43de5 /src/Network/KRPC | |
parent | de4a5fd744b4744a80e3403f914886ff7df10526 (diff) |
Abstract facility to represent Tox encrypted nonces.
Diffstat (limited to 'src/Network/KRPC')
-rw-r--r-- | src/Network/KRPC/Method.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Network/KRPC/Method.hs b/src/Network/KRPC/Method.hs index 2033f808..a31380cc 100644 --- a/src/Network/KRPC/Method.hs +++ b/src/Network/KRPC/Method.hs | |||
@@ -35,6 +35,7 @@ import Data.String | |||
35 | import Data.Typeable | 35 | import Data.Typeable |
36 | import Network.DatagramServer.Mainline | 36 | import Network.DatagramServer.Mainline |
37 | import Network.DatagramServer.Types | 37 | import Network.DatagramServer.Types |
38 | import Network.DHT.Types | ||
38 | 39 | ||
39 | 40 | ||
40 | -- | Method datatype used to describe method name, parameters and | 41 | -- | Method datatype used to describe method name, parameters and |
@@ -105,3 +106,5 @@ class ( Typeable req, Typeable resp) | |||
105 | validateExchange :: dht req -> dht resp -> Bool | 106 | validateExchange :: dht req -> dht resp -> Bool |
106 | validateExchange _ _ = True | 107 | validateExchange _ _ = True |
107 | 108 | ||
109 | makeQueryExtra :: DHTData dht ip -> Proxy req -> Proxy resp -> IO (QueryExtra dht) | ||
110 | makeResponseExtra :: DHTData dht ip -> req -> Proxy resp -> IO (ResponseExtra dht) | ||