mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

forget: Preserve currently exported trees

Browse source 
Avoiding problems with exporttree remotes in some unusual circumstances.

This commit was sponsored by Brett Eisenberg on Patreon.
This commit is contained in:
Joey Hess 2021-04-13 15:00:23 -04:00
parent 0bcf155e11
commit 8e7dc958d2
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
7 changed files with 36 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Logs/Export/Pure.hs
View file

@ -17,6 +17,7 @@ module Logs.Export.Pure (
exportedTreeishes,
incompleteExportedTreeishes,
parseExportLog,
parseExportLogMap,
buildExportLog,
updateForExportChange,
) where
@ -25,6 +26,7 @@ import Annex.Common
import qualified Git
import Logs.MapLog
import qualified Data.Map as M
import qualified Data.ByteString.Lazy as L
import qualified Data.Attoparsec.ByteString.Lazy as A
import qualified Data.Attoparsec.ByteString.Char8 as A8
@ -72,6 +74,9 @@ data ExportChange = ExportChange
parseExportLog :: L.ByteString -> MapLog ExportParticipants Exported
parseExportLog = parseMapLog exportParticipantsParser exportedParser
parseExportLogMap :: L.ByteString -> M.Map ExportParticipants Exported
parseExportLogMap = simpleMap . parseExportLog
buildExportLog :: MapLog ExportParticipants Exported -> Builder
buildExportLog = buildMapLog buildExportParticipants buildExported