X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/99cc41443c07f97535eaeecc628d99075ca2cebf..06bd821502f57dcb4ef89295b221fc2b9a4f1ae3:/src/dbms.sml?ds=sidebyside

diff --git a/src/dbms.sml b/src/dbms.sml
index 0b40b26..8c34f8b 100644
--- a/src/dbms.sml
+++ b/src/dbms.sml
@@ -22,7 +22,7 @@ structure Dbms :> DBMS = struct
 
 open DataStructures
 
-val validDbname = CharVector.all Char.isAlpha
+val validDbname = CharVector.all (fn ch => Char.isAlphaNum ch orelse ch = #"_")
 
 type handler = {getpass : (unit -> Client.passwd_result) option,
 		adduser : {user : string, passwd : string option} -> string option,