hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

LIB: make pattern IsSymL more lazy

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/DirTree.hs
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, _))