Haskell implementation of the InterPlanetary File System