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

fix android build

Browse source
This commit is contained in:
Joey Hess 2013-05-06 16:45:49 -04:00
parent f7ebb61d80
commit 69bd8d0462
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/Configurators/Ssh.hs
View file

@ -68,9 +68,9 @@ sshInputAForm hostnamefield def = SshInput
check_username = checkBool (all (`notElem` "/:@ \t") . T.unpack) check_username = checkBool (all (`notElem` "/:@ \t") . T.unpack)
bad_username textField bad_username textField
bad_username = "bad user name" :: Text
#ifndef __ANDROID__ #ifndef __ANDROID__
bad_hostname = "cannot resolve host name" :: Text bad_hostname = "cannot resolve host name" :: Text
bad_username = "bad user name" :: Text
check_hostname = checkM (liftIO . checkdns) hostnamefield check_hostname = checkM (liftIO . checkdns) hostnamefield
checkdns t = do checkdns t = do