You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
39 lines
473 B
39 lines
473 B
14 years ago
|
module Network.Xmpp.Sasl.StringPrep where
|
||
|
|
|
||
|
|
import Text.StringPrep
|
||
|
|
|
||
|
|
saslPrepQuery = Profile
|
||
|
|
[b1]
|
||
|
|
True
|
||
|
|
[ c12
|
||
|
|
, c21
|
||
|
|
, c22
|
||
|
|
, c3
|
||
|
|
, c4
|
||
|
|
, c5
|
||
|
|
, c6
|
||
|
|
, c7
|
||
|
|
, c8
|
||
|
|
, c9
|
||
|
|
]
|
||
|
|
True
|
||
|
|
|
||
|
|
saslPrepStore = Profile
|
||
|
|
[b1]
|
||
|
|
True
|
||
|
|
[ a1
|
||
|
|
, c12
|
||
|
|
, c21
|
||
|
|
, c22
|
||
|
|
, c3
|
||
|
|
, c4
|
||
|
|
, c5
|
||
|
|
, c6
|
||
|
|
, c7
|
||
|
|
, c8
|
||
|
|
, c9
|
||
|
|
]
|
||
|
|
True
|
||
|
|
|
||
|
|
normalizePassword = runStringPrep saslPrepStore
|
||
|
|
normalizeUsername = runStringPrep saslPrepQuery
|