Merge pull request #149 from ilyakooo0/actual-develop
Updated again
commitc92e097776c43f55affb3f8680f5c9d06f533aeb
authoriko <ilyakooo0@gmail.com>
dateThu 16 May 2019, 19:28 (7 years ago)
parentaba68b5a2070c1
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