From 6b89dd85649cf2de1e00962311e06fcb47797e5f Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@hasufell.de>
Date: Tue, 22 Dec 2015 19:50:24 +0100
Subject: [PATCH] LIB: make pattern IsSymL more lazy

---
 src/Data/DirTree.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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, _))