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

add a note about only writable drives being listed

Browse source
This commit is contained in:
Joey Hess 2013-12-12 14:25:50 -04:00
parent e3fa0ebd03
commit 13f7e51724
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -213,7 +213,7 @@ getCombineRepositoryR newrepopath newrepouuid = do
selectDriveForm :: [RemovableDrive] -> Hamlet.Html -> MkMForm RemovableDrive selectDriveForm :: [RemovableDrive] -> Hamlet.Html -> MkMForm RemovableDrive
selectDriveForm drives = renderBootstrap $ RemovableDrive selectDriveForm drives = renderBootstrap $ RemovableDrive
<$> pure Nothing <$> pure Nothing
<*> areq (selectFieldList pairs) "Select drive:" Nothing <*> areq (selectFieldList pairs `withNote` onlywritable) "Select drive:" Nothing
<*> areq textField "Use this directory on the drive:" <*> areq textField "Use this directory on the drive:"
(Just $ T.pack gitAnnexAssistantDefaultDir) (Just $ T.pack gitAnnexAssistantDefaultDir)
where where
@ -227,6 +227,7 @@ selectDriveForm drives = renderBootstrap $ RemovableDrive
, T.concat ["(", T.pack sz] , T.concat ["(", T.pack sz]
, "free)" , "free)"
] ]
onlywritable = [whamlet|This list only includes drives you can write to.|]
removableDriveRepository :: RemovableDrive -> FilePath removableDriveRepository :: RemovableDrive -> FilePath
removableDriveRepository drive = removableDriveRepository drive =