From 4e630cf80da87dc2632ead3280d304c09d57c55c Mon Sep 17 00:00:00 2001
From: adamch <adamch>
Date: Sat, 4 Nov 2006 16:16:35 +0000
Subject: [PATCH] Propagate domain validity check code to app

---
 app/app.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app/app.sml b/app/app.sml
index dba8cee..b28169f 100644
--- 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)
-- 
2.20.1