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

make repo description optional

Browse source
This commit is contained in:
Joey Hess 2012-10-14 16:32:55 -04:00
parent 2d9682f3c6
commit 08e1efb278
3 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -31,7 +31,6 @@ import Remote (prettyListUUIDs)
import Annex.UUID
import Types.StandardGroups
import Logs.PreferredContent
import Logs.UUID
import Yesod
import Data.Text (Text)
@ -195,7 +194,7 @@ getAddDriveR = bootstrap (Just Config) $ do
make mountpoint = do
liftIO $ makerepo dir
u <- liftIO $ initRepo dir $ Just remotename
r <- addremote u dir remotename
r <- addremote dir remotename
runAnnex () $ setStandardGroup u TransferGroup
syncRemote r
return u
@ -212,8 +211,7 @@ getAddDriveR = bootstrap (Just Config) $ do
createDirectoryIfMissing True dir
makeRepo dir True
{- Each repository is made a remote of the other. -}
addremote u dir name = runAnnex undefined $ do
describeUUID u name
addremote dir name = runAnnex undefined $ do
hostname <- maybe "host" id <$> liftIO getHostname
hostlocation <- fromRepo Git.repoLocation
liftIO $ inDir dir $