voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

import after export

This commit is contained in:
Dmitry Zuikov 2023-06-29 18:46:05 +03:00
parent 3681fd7bee
commit 22bb266f02
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-git/git-hbs2/GitRemotePush.hs
View File

@ -81,7 +81,7 @@ push remote what@[Just bFrom , Just br] = do
trace $ "PUSH PARAMS" <+> pretty what trace $ "PUSH PARAMS" <+> pretty what
gh <- gitGetHash (normalizeRef bFrom) `orDie` [qc|can't read hash for ref {pretty br}|] gh <- gitGetHash (normalizeRef bFrom) `orDie` [qc|can't read hash for ref {pretty br}|]
_ <- traceTime "TIME: exportRefOnly" $ exportRefOnly () remote (Just bFrom) br gh _ <- traceTime "TIME: exportRefOnly" $ exportRefOnly () remote (Just bFrom) br gh
-- importRefLogNew False remote importRefLogNew False remote
pure (Just br) pure (Just br)
push remote [Nothing, Just br] = do push remote [Nothing, Just br] = do
@ -92,7 +92,7 @@ push remote [Nothing, Just br] = do
loadCredentials mempty loadCredentials mempty
trace $ "deleting remote reference" <+> pretty br trace $ "deleting remote reference" <+> pretty br
exportRefDeleted () remote br exportRefDeleted () remote br
-- importRefLogNew False remote importRefLogNew False remote
pure (Just br) pure (Just br)
push r w = do push r w = do