mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove unused function

Browse source
This commit is contained in:
Joey Hess 2019-10-23 12:01:34 -04:00
parent b23c87cd0f
commit e98f230c95
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Annex/AdjustedBranch.hs
View file

@ -136,9 +136,6 @@ getAdjustment = fmap fst . adjustedToOriginal
fromAdjustedBranch :: Branch -> OrigBranch fromAdjustedBranch :: Branch -> OrigBranch
fromAdjustedBranch b = maybe b snd (adjustedToOriginal b) fromAdjustedBranch b = maybe b snd (adjustedToOriginal b)
originalBranch :: Annex (Maybe OrigBranch)
originalBranch = fmap fromAdjustedBranch <$> inRepo Git.Branch.current
{- Enter an adjusted version of current branch (or, if already in an {- Enter an adjusted version of current branch (or, if already in an
- adjusted version of a branch, changes the adjustment of the original - adjusted version of a branch, changes the adjustment of the original
- branch). - branch).