-- recursivly get all non-directory files
allFileContents :: FilePath -> [FilePath] -> IO [FilePath]
allFileContents _ [] = do
    return []
allFileContents :: FilePath -> [FilePath] -> IO [FilePath]
allFileContents _ [] = do
    return []
allFileContents _ [] = do
    return []