README: update on the current state

diff --git a/README.md b/README.md
index 3a0dad069cc45d3c885874a035434205fbf1b285..4d3cabb379c4481e803125ff010e462813fc0ebe 100644 (file)
--- a/README.md
+++ b/README.md
@@ -30,6 +30,8 @@ shell which has all the package dependencies installed.
 
 ## Goals
 
+- [Optimized for Fun](http://www.slideshare.net/autang/ofun-optimizing-for-fun).
+  (should have called it "funtorrent")
 - Become more profient with Haskell.
 - Implement something non-trivial with Haskell (crypto, file operations, network
   operations, concurrency, bit twiddling, DHT).
@@ -44,11 +46,13 @@ shell which has all the package dependencies installed.
 - talk to the tracker and get the peer list
 - the `main' program takes a torrent file (in the local file system) as input and
   prints the {ip,port} for each peer, after talking to the tracker.
+- can handshake with the peer.
+- peer wire protocol (in progress)
 
 ## TODO
 
 *    Test suite.
-*    Peer protocol.
+*    Peer protocol (in progress).
 *    Get the file download working in the simplest possible way.
 *    Concurrency (threads per peer)
 *    other advanced features of Bit Torrent (like DHT).