mirror of
https://github.com/roc-lang/roc.git
synced 2025-09-26 21:39:07 +00:00
3217e5a3f0
We found some issues with the private submodules part of the proposal [1], and we decided to keep module directories for now. [1] https://docs.google.com/document/d/1E_77fO-44BtoBtXoVeWyGh1xN2KRTWTu8q6i25RNNx0/edit#heading=h.x84bh32l37em
38 lines
921 B
Text
38 lines
921 B
Text
interface Base64 exposes [fromBytes, fromStr, toBytes, toStr] imports []
|
|
|
|
import Base64.Decode
|
|
import Base64.Encode
|
|
|
|
# base 64 encoding from a sequence of bytes
|
|
fromBytes : List U8 -> Result Str [InvalidInput]
|
|
fromBytes = \bytes ->
|
|
when Base64.Decode.fromBytes bytes is
|
|
Ok v ->
|
|
Ok v
|
|
|
|
Err _ ->
|
|
Err InvalidInput
|
|
|
|
# base 64 encoding from a string
|
|
fromStr : Str -> Result Str [InvalidInput]
|
|
fromStr = \str ->
|
|
fromBytes (Str.toUtf8 str)
|
|
|
|
# base64-encode bytes to the original
|
|
toBytes : Str -> Result (List U8) [InvalidInput]
|
|
toBytes = \str ->
|
|
Ok (Base64.Encode.toBytes str)
|
|
|
|
toStr : Str -> Result Str [InvalidInput]
|
|
toStr = \str ->
|
|
when toBytes str is
|
|
Ok bytes ->
|
|
when Str.fromUtf8 bytes is
|
|
Ok v ->
|
|
Ok v
|
|
|
|
Err _ ->
|
|
Err InvalidInput
|
|
|
|
Err _ ->
|
|
Err InvalidInput
|