diff --git a/Assistant/WebApp/Configurators/Local.hs b/Assistant/WebApp/Configurators/Local.hs index b77a3ecf58..cbde62fce3 100644 --- a/Assistant/WebApp/Configurators/Local.hs +++ b/Assistant/WebApp/Configurators/Local.hs @@ -174,7 +174,7 @@ selectDriveForm drives def = renderBootstrap $ RemovableDrive {- Adding a removable drive. -} getAddDriveR :: Handler RepHtml -getAddDriveR = page "AAdd a removable drive" (Just Config) $ do +getAddDriveR = page "Add a removable drive" (Just Config) $ do removabledrives <- liftIO $ driveList writabledrives <- liftIO $ filterM (canWrite . T.unpack . mountPoint) removabledrives