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. -}
|
{- Runs an IO action in the annex's git repository. -}
|
||||||
inRepo :: (Git.Repo -> IO a) -> Annex a
|
inRepo :: (Git.Repo -> IO a) -> Annex a
|
||||||
inRepo a = do
|
inRepo a = liftIO . a =<< gitRepo
|
||||||
g <- gitRepo
|
|
||||||
liftIO $ a g
|
|
||||||
|
|
||||||
{- Extracts a value from the annex's git repisitory. -}
|
{- Extracts a value from the annex's git repisitory. -}
|
||||||
fromRepo :: (Git.Repo -> a) -> Annex a
|
fromRepo :: (Git.Repo -> a) -> Annex a
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue