Updated again
commit2d97dc18fd9185ea3693349f6e35141658545f2a
authoriko <ilyakooo0@gmail.com>
dateThu 16 May 2019, 19:18 (7 years ago)
parentb7ed523
denis/src/Data/Tags/Validation.hs+1−2
@@ -19,8 +19,7 @@ validateTag' :: T.Text -> Bool
1919validateTag' = T.all validChar
2020
2121validChars :: S.Set Char
22−validChars = S.fromList "йцукенгшщзхъфывапролджэёячсмитьбюqwertyuiopasdfghjklzxcvbnm"
22+validChars = S.fromList "йцукенгшщзхъфывапролджэёячсмитьбюqwertyuiopasdfghjklzxcvbnm1234567890_"
2323
2424validChar :: Char -> Bool
25−validChar '_' = True
2625validChar c = S.member (C.toLower c) validChars