Allow input of base45 decoder to also contain lower-case letters
This commit is contained in:
parent
0edfe4406c
commit
f52f48273a
|
@ -518,7 +518,9 @@ Does not replace CRLF with CRCRLF, and so on."
|
|||
(when (= 1 (% (length str) 3))
|
||||
(user-error "Input string has invalid length for base45 decoding; must be 0 or 2 modulo 3"))
|
||||
|
||||
(let* ((list-of-blocks (->> str
|
||||
(let* ((str (s-upcase str))
|
||||
|
||||
(list-of-blocks (->> str
|
||||
db/base45--string-to-bytes
|
||||
(-partition-all 3)))
|
||||
|
||||
|
|
Loading…
Reference in New Issue