Propagate domain validity check code to app

diff --git a/app/app.sml b/app/app.sml
index dba8cee..b28169f 100644 (file)
--- a/app/app.sml
+++ b/app/app.sml
@@ -124,7 +124,7 @@ fun apply {name, rname, gname, email, forward, uses, other} =
       | _ => raise Fail "Bad next sequence val"
     end
 
-fun isIdent ch = Char.isLower ch orelse Char.isDigit ch
+fun isIdent ch = Char.isLower ch orelse Char.isDigit ch orelse ch = #"-"
 
 fun validHost s =
     size s > 0 andalso size s < 20 andalso List.all isIdent (String.explode s)