Wall of haskell code, mostly a big case statement on messages in the git-annex P2P protocol. There are 2 cases not yet implemented for PUT and GET.
https://media.hachyderm.io/media_attachments/files/112/695/056/257/186/289/original/dc6ddb6c3a948198.png