fix name validation on client (#74)
commit8207cb1b06a92f75f91db7c270b2ad6d98109d60
authorNikita <anisimoff.nikita@gmail.com>
dateThu 9 Jul 2020, 13:59 (6 years ago)
parent47ef517
dm-frontend/src/Page/Popup/NewStaging.hs+2−2
@@ -130,5 +130,5 @@ envVarInput ix _ = do
130130
131131nameValidation :: Text -> Bool
132132nameValidation name =
133− (T.length name >= 2 && T.length name <= 20)
134− && (T.encodeUtf8 name =~ ("^[a-z0-9\\-]+$" :: ByteString))
133+ (T.length name >= 2 && T.length name <= 17)
134+ && (T.encodeUtf8 name =~ ("^[a-z][a-z0-9\\-]*$" :: ByteString))