From 543d0d250104c1f5908e1b7b258d36d95488a029 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 12 Dec 2011 18:23:24 -0400 Subject: split out Git/Ref.hs --- Upgrade/V2.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Upgrade') diff --git a/Upgrade/V2.hs b/Upgrade/V2.hs index 08bf83e83..3440d504b 100644 --- a/Upgrade/V2.hs +++ b/Upgrade/V2.hs @@ -9,6 +9,7 @@ module Upgrade.V2 where import Common.Annex import qualified Git +import qualified Git.Ref import qualified Annex.Branch import Logs.Location import Annex.Content @@ -86,7 +87,7 @@ logFiles dir = return . filter (".log" `isSuffixOf`) push :: Annex () push = do - origin_master <- Annex.Branch.refExists $ Git.Ref "origin/master" + origin_master <- inRepo $ Git.Ref.exists $ Git.Ref "origin/master" origin_gitannex <- Annex.Branch.hasOrigin case (origin_master, origin_gitannex) of (_, True) -> do -- cgit v1.2.3