LIB: make pattern IsSymL more lazy

This commit is contained in:
Julian Ospald 2015-12-22 19:50:24 +01:00
parent 9288be7ff7
commit 6b89dd8564
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 1 deletions

View File

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