LIB: implement file moving operations

2015-12-23 16:08:39 +01:00
parent 6b89dd8564
commit 09821f8fc2
2 changed files with 61 additions and 6 deletions
--- a/src/Data/DirTree.hs
+++ b/src/Data/DirTree.hs
@@ -200,9 +200,16 @@ isSymL f@(_ :/ RegFile _ FileInfo { isSymbolicLink = True }) = (True, f)
 isSymL f = (False, f)


-pattern IsSymL b <- (isSymL -> (b, _))
+symlOrRegFile :: AnchoredFile FileInfo FileInfo
+              -> (Bool, AnchoredFile FileInfo FileInfo)
+symlOrRegFile f@(_ :/ RegFile {}) = (True, f)
+symlOrRegFile f@(_ :/ Dir _ FileInfo { isSymbolicLink = True }) = (True, f)
+symlOrRegFile f = (False, f)


+pattern IsSymL b <- (isSymL -> (b, _))
+pattern SymlOrRegFile <- (symlOrRegFile -> (True, _))
+


    ----------------------------