on master help sign in
I now allow new line characters
515d682iko
denis/src/Data/Limits.hs+2−2
@@ -14,7 +14,7 @@ maxMessageLimitName :: Int
14maxMessageLimitName = 60
14maxMessageLimitName = 60
15
15
16postElementLengthLimit :: Int
16postElementLengthLimit :: Int
17−postElementLengthLimit = 10000
17+postElementLengthLimit = 35000
18
18
19userFieldLengthLimit :: Int
19userFieldLengthLimit :: Int
20userFieldLengthLimit = 50
20userFieldLengthLimit = 50
@@ -29,4 +29,4 @@ listLimit :: Int
29listLimit = 100
29listLimit = 100
30
30
31globalTextLimit :: Int
31globalTextLimit :: Int
32−globalTextLimit = 20000
32+globalTextLimit = 50000
denis/src/Data/Text/Validator.hs+2
@@ -15,6 +15,8 @@ import Data.Char
15import Data.Limits
15import Data.Limits
16
16
17isValidChar :: Char -> Bool
17isValidChar :: Char -> Bool
18+isValidChar '\n' = True
19+isValidChar '\r' = True
18isValidChar = isPrint
20isValidChar = isPrint
19
21
20class HasValidatableText t where
22class HasValidatableText t where