diff options
author | 2011-02-19 17:00:40 -0400 | |
---|---|---|
committer | 2011-02-19 17:00:40 -0400 | |
commit | dd0f662849fa24ded0d9ecb43000ac0ab8b1f7e7 (patch) | |
tree | d5d54a49e8194e6538483b3c46732355430d414c /Annex.hs | |
parent | 208fb142d40e80da4f3dd9744e06027b3c2bbc46 (diff) |
hello, liftM
Diffstat (limited to 'Annex.hs')
-rw-r--r-- | Annex.hs | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -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. - |