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

more indentation. must stop.

Browse source
This commit is contained in:
Joey Hess 2012-10-28 22:09:09 -04:00
parent def5b4cc64
commit ec0bac9d73
5 changed files with 183 additions and 185 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Backend.hs
View file

@ -90,8 +90,7 @@ lookupFile file = do
Nothing -> do Nothing -> do
when (isLinkToAnnex l) $ warning $ when (isLinkToAnnex l) $ warning $
"skipping " ++ file ++ "skipping " ++ file ++
" (unknown backend " ++ " (unknown backend " ++ bname ++ ")"
bname ++ ")"
return Nothing return Nothing
{- Looks up the backend that should be used for a file. {- Looks up the backend that should be used for a file.
@ -100,8 +99,7 @@ lookupFile file = do
chooseBackend :: FilePath -> Annex (Maybe Backend) chooseBackend :: FilePath -> Annex (Maybe Backend)
chooseBackend f = Annex.getState Annex.forcebackend >>= go chooseBackend f = Annex.getState Annex.forcebackend >>= go
where where
go Nothing = maybeLookupBackendName <$> go Nothing = maybeLookupBackendName <$> checkAttr "annex.backend" f
checkAttr "annex.backend" f
go (Just _) = Just . Prelude.head <$> orderedList go (Just _) = Just . Prelude.head <$> orderedList
{- Looks up a backend by name. May fail if unknown. -} {- Looks up a backend by name. May fail if unknown. -}