module Language.PureScript.Publish.Utils where

import Prelude.Compat

import System.Directory
import System.FilePath.Glob (Pattern, compile, globDir1)

-- | Glob relative to the current directory, and produce relative pathnames.
globRelative :: Pattern -> IO [FilePath]
globRelative pat = getCurrentDirectory >>= globDir1 pat

-- | Glob pattern for PureScript source files.
purescriptSourceFiles :: Pattern
purescriptSourceFiles = compile "src/**/*.purs"