Finished file system implemtation of zipper from learn you a haskell