simplify
This commit is contained in:
parent
db9dbc3161
commit
e468fbc518
1 changed files with 1 additions and 3 deletions
|
@ -156,9 +156,7 @@ keyHash = fst . splitKeyNameExtension
|
|||
|
||||
validInExtension :: Word8 -> Bool
|
||||
validInExtension c
|
||||
| c >= 48 && c <= 57 = True -- numbers
|
||||
| c >= 65 && c <= 90 = True -- A-Z
|
||||
| c >= 97 && c <= 122 = True -- a-z
|
||||
| isAlphaNum (chr (fromIntegral c)) = True
|
||||
| c <= 127 = False -- other ascii, spaces, punctuation, control chars
|
||||
| otherwise = True -- utf8 is allowed, also other encodings
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue