WIP

Added graftTree but it's buggy.

Should use graftTree in Annex.Branch.graftTreeish; it will be faster
than the current implementation there.

Started Annex.Import, but untested and it doesn't yet handle tree
grafting.

Command/Export.hs

@@ -193,7 +193,7 @@ mkDiffMap old new db = do
 -- Returns True when files were uploaded.
 fillExport :: Remote -> ExportHandle -> Git.Ref -> Annex Bool
 fillExport r db new = do
-	(l, cleanup) <- inRepo $ Git.LsTree.lsTree new
+	(l, cleanup) <- inRepo $ Git.LsTree.lsTree Git.LsTree.LsTreeRecursive new
 	cvar <- liftIO $ newMVar False
 	commandActions $ map (startExport r db cvar) l
 	void $ liftIO $ cleanup

Command/Info.hs

@@ -597,7 +597,7 @@ getDirStatInfo o dir = do
 getTreeStatInfo :: InfoOptions -> Git.Ref -> Annex (Maybe StatInfo)
 getTreeStatInfo o r = do
 	fast <- Annex.getState Annex.fast
-	(ls, cleanup) <- inRepo $ LsTree.lsTree r
+	(ls, cleanup) <- inRepo $ LsTree.lsTree LsTree.LsTreeRecursive r
 	(presentdata, referenceddata, repodata) <- go fast ls initial
 	ifM (liftIO cleanup)
 		( return $ Just $