Major refactoring, split file listing work

To GetFiles.hs