hello, liftM

1 files changed, 1 insertions, 3 deletions

diff --git a/Annex.hs b/Annex.hs
index 4a1b89dcf..5496ada67 100644
--- a/Annex.hs
+++ b/Annex.hs
@@ -75,9 +75,7 @@ eval state action = evalStateT action state
 {- Gets a value from the internal state, selected by the passed value
  - constructor. -}
 getState :: (AnnexState -> a) -> Annex a
-getState c = do
-	state <- get
-	return (c state)
+getState c = liftM c get
 
 {- Applies a state mutation function to change the internal state. 
  -