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

refactor

Browse source
This commit is contained in:
Joey Hess 2011-03-29 18:28:37 -04:00
parent 43bdebbc2d
commit 8f9951369d
3 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remote/Git.hs
View file

@ -14,7 +14,6 @@ import Control.Exception.Extensible
import Control.Monad.State (liftIO)
import qualified Data.Map as M
import System.Cmd.Utils
import Control.Monad (filterM)
import RemoteClass
import Types
@ -41,7 +40,7 @@ remote = RemoteType {
list :: Annex [Git.Repo]
list = do
g <- Annex.gitRepo
filterM remoteNotIgnored $ Git.remotes g
return $ Git.remotes g
gen :: Git.Repo -> Maybe (M.Map String String) -> Annex (Remote Annex)
gen repo _ = do