mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
Show stats 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. -}
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 -}
run :: AnnexState -> Annex a -> IO (a, AnnexState)