From 69bd8d04622d81ec447c11434fe6edb5bc9741e6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 6 May 2013 16:45:49 -0400 Subject: [PATCH] fix android build --- Assistant/WebApp/Configurators/Ssh.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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