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