diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-05 15:57:30 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-05 15:57:30 -0400 |
| commit | a3f76fe696c603078621ccca6d7b17270cc7ef11 (patch) | |
| tree | 714392d1d40a0c9d3437ac8263b082a2bca9d68b /Assistant/WebApp/Configurators.hs | |
| parent | 34fc0d358e53e4c615b1fe6fb80374a5302ccf1c (diff) | |
wording
De-emphasize "clone", because it's not that simple. The removable drive may
already have an annex with content; if so it'll get synced in.
Diffstat (limited to 'Assistant/WebApp/Configurators.hs')
| -rw-r--r-- | Assistant/WebApp/Configurators.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/WebApp/Configurators.hs b/Assistant/WebApp/Configurators.hs index f345563e7..66b8d386e 100644 --- a/Assistant/WebApp/Configurators.hs +++ b/Assistant/WebApp/Configurators.hs @@ -207,7 +207,7 @@ selectDriveForm drives def = renderBootstrap $ RemovableDrive getAddDriveR :: Handler RepHtml getAddDriveR = bootstrap (Just Config) $ do sideBarDisplay - setTitle "Clone to a removable drive" + setTitle "Add a removable drive" removabledrives <- liftIO $ driveList writabledrives <- liftIO $ filterM (canWrite . T.unpack . mountPoint) removabledrives |