oryFiles root dir = (map (dir<>) <$> getDirectoryContents root dir)
                             >>= filterM (doesFileExist root) -- Is is a regular file?

getFiles :: (FileCollection base, FileCollection mod)
   
getDirectoryFiles :: FileCollection d ⇒ d → FilePath → IO [FilePath]
getDirectoryFiles root dir = (map (dir<>) <$> getDirectoryContents root dir)
                             >>= filterM (doesFileExist root)
getDirectoryFiles root dir = (map (dir<>) <$> getDirectoryContents root dir)
                             >>= filterM (doesFileExist root)