From 30f1aeb13c6627e8264f222a799b2702c5f13714 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 12 Nov 2011 14:24:07 -0400
Subject: golf

---
 Annex.hs | 4 +---
 1 file changed, 1 insertion(+), 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
-- 
cgit v1.2.3