diff options
Diffstat (limited to 'Logs/RemoteState.hs')
-rw-r--r-- | Logs/RemoteState.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Logs/RemoteState.hs b/Logs/RemoteState.hs index ff4979f9c..17d084f78 100644 --- a/Logs/RemoteState.hs +++ b/Logs/RemoteState.hs @@ -17,16 +17,15 @@ import qualified Annex.Branch import qualified Annex import qualified Data.Map as M -import Data.Time.Clock.POSIX type RemoteState = String setRemoteState :: UUID -> Key -> RemoteState -> Annex () setRemoteState u k s = do - ts <- liftIO getPOSIXTime + c <- liftIO currentVectorClock config <- Annex.getGitConfig Annex.Branch.change (remoteStateLogFile config k) $ - showLogNew id . changeLog ts u s . parseLogNew Just + showLogNew id . changeLog c u s . parseLogNew Just getRemoteState :: UUID -> Key -> Annex (Maybe RemoteState) getRemoteState u k = do |