Merge pull request #147 from ilyakooo0/develop
Accept letter
commit52aa26e7889bd11f300fd05814a543b3751dab1a
authoriko <ilyakooo0@gmail.com>
dateTue 14 May 2019, 13:53 (7 years ago)
parent4a18fd903fa122
denis/src/Data/Text/Validator.hs+1−1
@@ -17,7 +17,7 @@ import Data.Limits
1717isValidChar :: Char -> Bool
1818isValidChar '\n' = True
1919isValidChar '\r' = True
20−isValidChar c = isPrint c
20+isValidChar c = isPrint c || generalCategory c == ModifierLetter
2121
2222class HasValidatableText t where
2323 validateText :: t -> Bool