golf
This commit is contained in:
parent
15b92ad6a1
commit
30f1aeb13c
1 changed files with 1 additions and 3 deletions
4
Annex.hs
4
Annex.hs
|
@ -122,9 +122,7 @@ gitRepo = getState repo
|
|||
|
||||
{- Runs an IO action in the annex's git repository. -}
|
||||
inRepo :: (Git.Repo -> IO a) -> Annex a
|
||||
inRepo a = do
|
||||
g <- gitRepo
|
||||
liftIO $ a g
|
||||
inRepo a = liftIO . a =<< gitRepo
|
||||
|
||||
{- Extracts a value from the annex's git repisitory. -}
|
||||
fromRepo :: (Git.Repo -> a) -> Annex a
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue