A Haskell implementation of the Tahoe-LAFS storage server - View it on GitHub