parse error for NetCrypto messages for now.

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
     | NetCrypto (CryptoPacket Encrypted)
 
 parseNetCrypto :: ByteString -> SockAddr -> Either String (NetCrypto, SockAddr)
-parseNetCrypto = _todo
+parseNetCrypto _ _  = Left "TODO: parseNetCrypto"
 
 encodeNetCrypto :: NetCrypto -> SockAddr -> (ByteString, SockAddr)
-encodeNetCrypto = _todo
+encodeNetCrypto _ _ = _todo
 
 data Handshake (f :: * -> *) = Handshake
     { handshakeCookie :: Cookie