diff --git a/Annex/Import.hs b/Annex/Import.hs index 06c6abab92..b1ace3468e 100644 --- a/Annex/Import.hs +++ b/Annex/Import.hs @@ -294,7 +294,6 @@ buildImportTrees buildImportTrees basetree msubdir addunlockedmatcher (ImportedFull imported) = buildImportTreesGeneric (convertImportTree addunlockedmatcher) basetree msubdir imported buildImportTrees basetree msubdir addunlockedmatcher (ImportedDiff (LastImportedTree oldtree) imported) = do - liftIO $ print $ importableContents imported importtree <- if null (importableContents imported) then pure oldtree else applydiff @@ -309,7 +308,6 @@ buildImportTrees basetree msubdir addunlockedmatcher (ImportedDiff (LastImported (importableContents imported) newtreeitems <- catMaybes <$> mapM mktreeitem new let removedfiles = map (mkloc . fst) removed - liftIO $ print ("removed", removedfiles) inRepo $ adjustTree (pure . Just) -- ^ keep files that are not added/removed the same @@ -509,7 +507,7 @@ data ImportResult t data Diffed t = DiffChanged t | DiffRemoved - deriving (Eq, Show) + deriving (Eq) data Imported = ImportedFull (ImportableContentsChunkable Annex (Either Sha Key)) @@ -579,9 +577,7 @@ importChanges remote importtreeconfig importcontent thirdpartypopulated importab (diff, cleanup) <- inRepo $ Git.DiffTree.diffTreeRecursive prevcidtree currcidtree - liftIO $ print (diff, prevcidtree, currcidtree) let (removed, changed) = partition isremoval diff - liftIO $ print (removed, changed) let mkicchanged ti = do v <- M.lookup (Git.DiffTree.dstsha ti) cidtreemap return (mkloc ti, v)