LIB/GTK: refactor File API and add copyFile

2015-12-17 23:08:02 +01:00
parent d5c6eef49e
commit 87ad7d02f0
4 changed files with 219 additions and 50 deletions
--- a/src/Data/DirTree/Zipper.hs
+++ b/src/Data/DirTree/Zipper.hs
@@ -39,6 +39,8 @@ import qualified Data.List as DL
 -- are the breadcrumbs.
 type DTZipper a b = (DirTree a b, [DirTree a b])

+type DTInfoZipper = DTZipper DirTreeInfo DirTreeInfo
+

 -- |The base zipper of a tree with empty crumbs element.
 baseZipper :: DirTree a b -> DTZipper a b