| changeset 12114 | cdadc1d487f1 |
| parent 11838 | 8f730ba4ca3c |
| child 12834 | 148c9524f38d |
| 12113:72f5d670bbee | 12114:cdadc1d487f1 |
|---|---|
243 sanitizeName :: B.ByteString -> B.ByteString |
243 sanitizeName :: B.ByteString -> B.ByteString |
244 sanitizeName = B.map sc |
244 sanitizeName = B.map sc |
245 where |
245 where |
246 sc c | isAlphaNum c = c |
246 sc c | isAlphaNum c = c |
247 | otherwise = '_' |
247 | otherwise = '_' |
248 |
|
249 isRegistered :: ClientInfo -> Bool |
|
250 isRegistered = (<) 0 . B.length . webPassword |