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 :: Word8 -> Bool
|
||||||
validInExtension c
|
validInExtension c
|
||||||
| c >= 48 && c <= 57 = True -- numbers
|
| isAlphaNum (chr (fromIntegral c)) = True
|
||||||
| c >= 65 && c <= 90 = True -- A-Z
|
|
||||||
| c >= 97 && c <= 122 = True -- a-z
|
|
||||||
| c <= 127 = False -- other ascii, spaces, punctuation, control chars
|
| c <= 127 = False -- other ascii, spaces, punctuation, control chars
|
||||||
| otherwise = True -- utf8 is allowed, also other encodings
|
| otherwise = True -- utf8 is allowed, also other encodings
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue