@@ -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