mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

drop an unnecessart liftIO

Browse source 
the liftM on its own can lift all the way into IO.
This commit is contained in:
Joey Hess 2011-08-19 14:36:52 -04:00
parent 021e8e1e0e
commit e3ca08fad8
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Annex.hs
View file

@ -84,7 +84,7 @@ newState gitrepo = AnnexState
{- Create and returns an Annex state object for the specified git repo. -} {- Create and returns an Annex state object for the specified git repo. -}
new :: Git.Repo -> IO AnnexState new :: Git.Repo -> IO AnnexState
new gitrepo = newState `liftM` (liftIO . Git.configRead) gitrepo new gitrepo = newState `liftM` Git.configRead gitrepo
{- performs an action in the Annex monad -} {- performs an action in the Annex monad -}
run :: AnnexState -> Annex a -> IO (a, AnnexState) run :: AnnexState -> Annex a -> IO (a, AnnexState)