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

add searchPathContents

Browse source 
And rename related functions for consistency.
This commit is contained in:
Joey Hess 2021-02-02 19:01:45 -04:00
parent aec2cf0abe
commit 1b63132ca3
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
18 changed files with 60 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/Configurators/AWS.hs
View file

@ -34,7 +34,7 @@ awsConfigurator = page "Add an Amazon repository" (Just Configuration)
glacierConfigurator :: Widget -> Handler Html
glacierConfigurator a = do
ifM (liftIO $ inPath "glacier")
ifM (liftIO $ inSearchPath "glacier")
( awsConfigurator a
, awsConfigurator needglaciercli
)

2
Assistant/WebApp/Configurators/Local.hs
View file

@ -164,7 +164,7 @@ getFirstRepositoryR :: Handler Html
getFirstRepositoryR = postFirstRepositoryR
postFirstRepositoryR :: Handler Html
postFirstRepositoryR = page "Getting started" (Just Configuration) $ do
unlessM (liftIO $ inPath "git") $
unlessM (liftIO $ inSearchPath "git") $
giveup "You need to install git in order to use git-annex!"
androidspecial <- liftIO osAndroid
path <- liftIO . defaultRepositoryPath =<< liftH inFirstRun