diff options
-rw-r--r-- | CryptoTransport.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/CryptoTransport.hs b/CryptoTransport.hs index ddf1a558..37f91369 100644 --- a/CryptoTransport.hs +++ b/CryptoTransport.hs | |||
@@ -24,10 +24,10 @@ data NetCrypto | |||
24 | | NetCrypto (CryptoPacket Encrypted) | 24 | | NetCrypto (CryptoPacket Encrypted) |
25 | 25 | ||
26 | parseNetCrypto :: ByteString -> SockAddr -> Either String (NetCrypto, SockAddr) | 26 | parseNetCrypto :: ByteString -> SockAddr -> Either String (NetCrypto, SockAddr) |
27 | parseNetCrypto = _todo | 27 | parseNetCrypto _ _ = Left "TODO: parseNetCrypto" |
28 | 28 | ||
29 | encodeNetCrypto :: NetCrypto -> SockAddr -> (ByteString, SockAddr) | 29 | encodeNetCrypto :: NetCrypto -> SockAddr -> (ByteString, SockAddr) |
30 | encodeNetCrypto = _todo | 30 | encodeNetCrypto _ _ = _todo |
31 | 31 | ||
32 | data Handshake (f :: * -> *) = Handshake | 32 | data Handshake (f :: * -> *) = Handshake |
33 | { handshakeCookie :: Cookie | 33 | { handshakeCookie :: Cookie |