Updated again
commita2070c154bfa0498cd1878b096ac84b8d18f2084
authoriko <ilyakooo0@gmail.com>
dateThu 16 May 2019, 19:18 (7 years ago)
parentb7ed523
denis/src/Data/Tags/Validation.hs+2−2
@@ -19,8 +19,8 @@ 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
25+validChar = True
2626validChar c = S.member (C.toLower c) validChars