Skip to content

Commit 4bee01d

Browse files
committed
Add "mix" directory for searching mix files
Modify "findVanilla" function, add the "mix" directory itself to find .mix files with directories made by cabal-install 3.12.
1 parent a4fb827 commit 4bee01d

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

src/Trace/Hpc/Codecov/Discover.hs

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -233,7 +233,9 @@ findVanilla ignored p acc@(mb_tix, dirs) = do
233233
then do
234234
let f xs = [mix </> x| x <- xs, x `notElem` ignored]
235235
contents <- f <$> listDirectory mix
236-
return (mb_tix, contents ++ dirs)
236+
-- From cabal-install 3.12, the 'mix' directory itself is
237+
-- used as the root directory of .mix files.
238+
return (mb_tix, mix : contents ++ dirs)
237239
else return (mb_tix, dirs)
238240
else return acc
239241

0 commit comments

Comments
 (0)