a service written in haskell to relocate files