allSubFiles :: FilePath -> IO [FilePath]
allSubFiles path = do
    isDir <- doesDirectoryExist path
    if isDir
    then do
        ct <- showDirectory path
        dirCont <- allFileContents path ct
        return dirCont
    else do
        return []


-- only remove empty directories
allSubFiles :: FilePath -> IO [FilePath]
allSubFiles path = do
    isDir <- doesDirectoryExist path
    if isDir
    then do
        ct <- showDirectory path
        dirCont <- allFileContents path ct
        return dirCont
    else do
        return []


-- only remove empty directories
allSubFiles path = do
    isDir <- doesDirectoryExist path
    if isDir
    then do
        ct <- showDirectory path
        dirCont <- allFileContents path ct
        return dirCont
    else do
        return []


-- only remove empty directories