diff --git a/Assistant/WebApp/Configurators/Ssh.hs b/Assistant/WebApp/Configurators/Ssh.hs index dbc27c643e..49d8946d97 100644 --- a/Assistant/WebApp/Configurators/Ssh.hs +++ b/Assistant/WebApp/Configurators/Ssh.hs @@ -68,9 +68,9 @@ sshInputAForm hostnamefield def = SshInput check_username = checkBool (all (`notElem` "/:@ \t") . T.unpack) bad_username textField + bad_username = "bad user name" :: Text #ifndef __ANDROID__ bad_hostname = "cannot resolve host name" :: Text - bad_username = "bad user name" :: Text check_hostname = checkM (liftIO . checkdns) hostnamefield checkdns t = do