This commit is contained in:
Joey Hess 2020-02-20 18:22:31 -04:00
parent db9dbc3161
commit e468fbc518
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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