Current section

Files

Jump to
gleam_bson src bson binary.gleam
Raw

src/bson/binary.gleam

import gleam/bit_string
external fn bit_size(BitString) -> Int =
"erlang" "bit_size"
pub opaque type Binary {
Generic(BitString)
}
pub fn to_string(binary: Binary) -> Result(String, Nil) {
case binary {
Generic(data) -> bit_string.to_string(data)
}
}
pub fn to_bit_string(binary: Binary) -> BitString {
case binary {
Generic(data) -> data
}
}
pub fn from_string(data: String) -> Binary {
Generic(bit_string.from_string(data))
}
pub fn from_bit_string(data: BitString) -> Result(Binary, Nil) {
case bit_size(data) % 8 {
0 -> Ok(Generic(data))
_ -> Error(Nil)
}
}