add searchPathContents
And rename related functions for consistency.
This commit is contained in:
parent
aec2cf0abe
commit
1b63132ca3
18 changed files with 60 additions and 49 deletions
|
@ -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
|
||||
)
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue