Update src/Weeder/Main.hs

This commit is contained in:
Matthias Fischmann 2024-06-12 10:50:26 +02:00 committed by GitHub
parent 1dc2f24802
commit c5d1b26f33
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194

View File

@ -285,10 +285,9 @@ getFilesIn
-> FilePath
-- ^ Directory to look in
-> IO [FilePath]
getFilesIn pat relRoot = do
root <- canonicalizePath relRoot
getFilesIn pat root = do
[result] <- Glob.globDir [Glob.compile pat] root
mapM canonicalizePath result
pure result
-- | Read a .hie file, exiting if it's an incompatible version.