summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-11-12 14:24:07 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-11-12 14:24:07 -0400
commit30f1aeb13c6627e8264f222a799b2702c5f13714 (patch)
tree2d1e888b9a55a4c217affc791c42dd331620e4e3
parent15b92ad6a19a7c486fb30fb3552be4a4ef9f9f3a (diff)
golf
-rw-r--r--Annex.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/Annex.hs b/Annex.hs
index 1c1091799..24cc78a64 100644
--- a/Annex.hs
+++ b/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