@@ -17,7 +17,7 @@ import Data.Limits
17isValidChar :: Char -> Bool
17isValidChar :: Char -> Bool
18isValidChar '\n' = True
18isValidChar '\n' = True
19isValidChar '\r' = True
19isValidChar '\r' = True
20−isValidChar c = isPrint c
20+isValidChar c = isPrint c || generalCategory c == ModifierLetter
22class HasValidatableText t where
22class HasValidatableText t where
23 validateText :: t -> Bool
23 validateText :: t -> Bool