simpified ListFiles.hs
simpified ListFiles.hs