diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-06-02 17:02:38 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-06-02 17:02:38 -0400 |
commit | b62a12ebf92039141e76b7b5f5276dacd0fcddd1 (patch) | |
tree | 11cf3fa40082c14914b81529e2dc7fca913b52a5 /Annex | |
parent | ed9cdb350e0bae8523b9d60cd414730c7d515829 (diff) |
Fix initialization of a bare clone of a repo that has an adjusted branch checked out.
Diffstat (limited to 'Annex')
-rw-r--r-- | Annex/AdjustedBranch.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Annex/AdjustedBranch.hs b/Annex/AdjustedBranch.hs index 67c36f399..30cefdec0 100644 --- a/Annex/AdjustedBranch.hs +++ b/Annex/AdjustedBranch.hs @@ -52,6 +52,7 @@ import Annex.Perms import Annex.GitOverlay import Utility.Tmp import qualified Database.Keys +import Config import qualified Data.Map as M @@ -551,7 +552,10 @@ data AdjustedClone = InAdjustedClone | NotInAdjustedClone | NeedUpgradeForAdjust - current version is too old to support adjusted branches. Returns True - when this is the case. -} checkAdjustedClone :: Annex AdjustedClone -checkAdjustedClone = go =<< inRepo Git.Branch.current +checkAdjustedClone = ifM isBareRepo + ( return NotInAdjustedClone + , go =<< inRepo Git.Branch.current + ) where go Nothing = return NotInAdjustedClone go (Just currbranch) = case adjustedToOriginal currbranch of |