fixed ListFiles.hs