minor configs for demo

This commit is contained in:
Ibrahim Mkusa 2017-04-24 11:07:36 -04:00
parent 26c9029401
commit fe0bfe15dc

View File

@ -259,7 +259,7 @@
(define (prompt-hostname)
(define returned (get-text-from-user "Hostname set-up" "Please enter a hostname"
main-frame "localhost" (list 'disallow-invalid)
main-frame "67.186.191.81" (list 'disallow-invalid)
#:validate
(lambda (input)
(if (and (string? input) (<= (string-length input) 50)