Data.Text.Short.Encoding.Base32.Hex

This module contains ShortText-valued combinators implementing the RFC 4648 specification for the Base32hex encoding format. This includes strictly padded/unpadded decoding variants, and external + internal validations for canonicity.

Encoding

encodeBase32 :: ShortText -> ShortText

Encode a ShortText value in Base32hex with padding.

See: RFC-4648 section 7

Examples:

>>> encodeBase32 "Sun"
"ADQMS==="

encodeBase32Unpadded :: ShortText -> ShortText

Encode a ShortText value in Base32hex without padding. Note that for Base32hex, padding is optional. If you call this function, you will simply be encoding as Base32hex and stripping padding chars from the output.

See: RFC-4648 section 7

Examples:

>>> encodeBase32Unpadded "Sun"
"ADQMS"

Decoding

decodeBase32 :: ShortText -> Either Text ShortText

Decode an arbitrarily padded Base32hex-encoded ShortText value. If its length is not a multiple of 4, then padding chars will be added to fill out the input to a multiple of 4 for safe decoding as base32hex encodings are optionally padded.

Note: This function makes sure that decoding is total by deferring to decodeUtf8. This will always round trip for any valid Base32-encoded text value, but it may not round trip for bad inputs. The onus is on the caller to make sure inputs are valid. If unsure, defer to decodeBase32With and pass in a custom decode function.

See: RFC-4648 section 7

Examples:

>>> decodeBase32 "ADQMS==="
Right "Sun"

>>> decodeBase32 "ADQMS"
Right "Sun"

>>> decodeBase32 "ADQMS==="
Left "Base32-encoded bytestring has invalid padding"

decodeBase32With

Arguments

:: (ShortByteString -> Either err ShortText)

convert a bytestring to text (e.g. '(fmap fromText . Data.Text.Encoding.decodeUtf8' . toText)')

-> ShortByteString

Input text to decode

-> Either (Base32Error err) ShortText

Attempt to decode a ShortByteString value as Base32hex, converting from ByteString to ShortText according to some encoding function. In practice, This is something like decodeUtf8', which may produce an error.

See: RFC-4648 section 7

Examples:

decodeBase32With '(fmap fromText . Data.Text.Encoding.decodeUtf8' . toText)'
  :: ShortByteString -> Either (Base32Error UnicodeException) ShortText

decodeBase32Unpadded :: ShortText -> Either Text ShortText

Decode an unpadded Base32hex encoded ShortText value.

Note: This function makes sure that decoding is total by deferring to decodeUtf8. This will always round trip for any valid Base32-encoded text value, but it may not round trip for bad inputs. The onus is on the caller to make sure inputs are valid. If unsure, defer to decodeBase32UnpaddedWith and pass in a custom decode function.

See: RFC-4648 section 7

Examples:

>>> decodeBase32Unpadded "ADQMS"
Right "Sun"

>>> decodeBase32Unpadded "ADQMS==="
Left "Base32-encoded bytestring has invalid padding"

decodeBase32UnpaddedWith

Arguments

:: (ShortByteString -> Either err ShortText)

convert a bytestring to text (e.g. '(fmap fromText . Data.Text.Encoding.decodeUtf8' . toText)')

-> ShortByteString

Input text to decode

-> Either (Base32Error err) ShortText

Attempt to decode an unpadded ShortByteString value as Base32hex, converting from ShortByteString to ShortText according to some encoding function. In practice, This is something like decodeUtf8', which may produce an error.

See: RFC-4648 section 7

Examples:

decodeBase32UnpaddedWith '(fmap fromText . Data.Text.Encoding.decodeUtf8' . toText)'
  :: ShortByteString -> Either (Base32Error UnicodeException) ShortText

decodeBase32Padded :: ShortText -> Either Text ShortText

Decode an padded Base32hex encoded ShortText value

Note: This function makes sure that decoding is total by deferring to decodeUtf8. This will always round trip for any valid Base32-encoded text value, but it may not round trip for bad inputs. The onus is on the caller to make sure inputs are valid. If unsure, defer to decodeBase32PaddedWith and pass in a custom decode function.

See: RFC-4648 section 7

Examples:

>>> decodeBase32Padded "ADQMS==="
Right "Sun"

>>> decodeBase32Padded "ADQMS"
Left "Base32-encoded bytestring requires padding"

decodeBase32PaddedWith

Arguments

:: (ShortByteString -> Either err ShortText)

convert a bytestring to text (e.g. decodeUtf8')

-> ShortByteString

Input text to decode

-> Either (Base32Error err) ShortText

Attempt to decode a padded ShortByteString value as Base32hex, converting from ByteString to ShortText according to some encoding function. In practice, This is something like decodeUtf8', which may produce an error.

See: RFC-4648 section 7

Examples:

decodeBase32With '(fmap fromText . Data.Text.Encoding.decodeUtf8' . toText)'
  :: ShortByteString -> Either (Base32Error UnicodeException) ShortText

Validation

isBase32Hex :: ShortText -> Bool

Tell whether a ShortText value is Base32hex-encoded.

Examples:

>>> isBase32Hex "ADQMS"
True

>>> isBase32Hex "ADQMS==="
True

>>> isBase32Hex "ADQMS=="
False

isValidBase32Hex :: ShortText -> Bool

Tell whether a ShortText value is a valid Base32hex format.

This will not tell you whether or not this is a correct Base32hex representation, only that it conforms to the correct shape. To check whether it is a true Base32 encoded ShortText value, use isBase32Hex.

Examples:

>>> isValidBase32Hex "ADQMS"
True

>>> isValidBase32Hex "ADQMS="
False

>>> isValidBase32Hex "ADQMS%"
False