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

go go gadget hlint

Browse source
This commit is contained in:
Joey Hess 2011-09-20 23:24:48 -04:00
parent 9d26192350
commit 9f6b7935dd
21 changed files with 35 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Backend.hs
View file

@ -111,7 +111,7 @@ chooseBackends :: [FilePath] -> Annex [BackendFile]
chooseBackends fs = do
g <- Annex.gitRepo
forced <- Annex.getState Annex.forcebackend
if forced /= Nothing
if isJust forced
then do
l <- orderedList
return $ map (\f -> (Just $ head l, f)) fs