Merge pull request #150 from ilyakooo0/actual-develop
Updated again
commit43352bd1bad1c91a61ac2740b0ca32bcd4a14dc9
authoriko <ilyakooo0@gmail.com>
dateThu 16 May 2019, 19:30 (7 years ago)
parentc92e097088d930
denis/src/Data/Tags/Validation.hs−1
@@ -22,5 +22,4 @@ validChars :: S.Set Char
2222validChars = S.fromList "йцукенгшщзхъфывапролджэёячсмитьбюqwertyuiopasdfghjklzxcvbnm1234567890_"
2323
2424validChar :: Char -> Bool
25−validChar = True
2625validChar c = S.member (C.toLower c) validChars