hablo/src/Files.hs

module Files (
    find
  ) where

import System.FilePath ((</>))
import System.Directory (listDirectory)

find :: FilePath -> IO [FilePath]
find path =
  fmap (path </>) <$> listDirectory path