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

simplify

Browse source
This commit is contained in:
Joey Hess 2014-11-12 15:57:38 -04:00
parent 9313abeaf5
commit c5ca0dc543
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Git/Branch.hs
View file

@ -44,10 +44,7 @@ currentUnsafe r = parse . firstLine
| otherwise = Just $ Git.Ref l | otherwise = Just $ Git.Ref l
currentSha :: Repo -> IO (Maybe Git.Sha) currentSha :: Repo -> IO (Maybe Git.Sha)
currentSha r = go =<< current r currentSha r = maybe (pure Nothing) (`Git.Ref.sha` r) =<< current r
where
go Nothing = return Nothing
go (Just ref) = Git.Ref.sha ref r
{- Checks if the second branch has any commits not present on the first {- Checks if the second branch has any commits not present on the first
- branch. -} - branch. -}