srid/ema
1
1
Fork 0
mirror of https://github.com/srid/ema.git synced 2024-11-29 09:25:14 +03:00
Code Issues Projects Releases Wiki Activity

Relax constraint

Browse Source
This commit is contained in:
Sridhar Ratnakumar 2021-04-26 14:01:33 -04:00
parent 48c92c3204
commit 767b9b471b
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Ema/Helper/FileSystem.hs
View File

@ -17,6 +17,13 @@ import Control.Monad.Logger
import Ema.App (MonadEma)
import System.Directory (canonicalizePath)
import System.FSNotify
( ActionPredicate,
Event (..),
StopListening,
WatchManager,
watchTree,
withManager,
)
import System.FilePath (makeRelative)
import System.FilePattern (FilePattern)
import System.FilePattern.Directory (getDirectoryFiles)
@ -27,7 +34,7 @@ type FolderPath = FilePath
log :: MonadLogger m => LogLevel -> Text -> m ()
log = logWithoutLoc "Helper.FileSystem"
filesMatching :: MonadEma m => FolderPath -> [FilePattern] -> m [FilePath]
filesMatching :: (MonadIO m, MonadLogger m) => FolderPath -> [FilePattern] -> m [FilePath]
filesMatching parent' pats = do
parent <- liftIO $ canonicalizePath parent'
log LevelInfo $ toText $ "Traversing " <> parent <> " for files matching " <> show pats