diff --git a/src/Data/DirTree.hs b/src/Data/DirTree.hs
index b9efc89..2c6bcf3 100644
--- a/src/Data/DirTree.hs
+++ b/src/Data/DirTree.hs
@@ -200,7 +200,7 @@ isSymL f@(_ :/ RegFile _ FileInfo { isSymbolicLink = True }) = (True, f)
 isSymL f = (False, f)
 
 
-pattern IsSymL b <- (isSymL -> (b, f))
+pattern IsSymL b <- (isSymL -> (b, _))