getTotalFiles :: FS.FilePath -> IO Int
getTotalFiles folder = Tur.fold (Tur.ls folder) F.length
getTotalFiles :: FS.FilePath -> IO Int
getTotalFiles folder = Tur.fold (Tur.ls folder) F.length
getTotalFiles folder = Tur.fold (Tur.ls folder) F.length