Add fromText function

This commit is contained in:
Rene Vergara 2024-02-05 20:42:22 -06:00
parent 8c634d8aa6
commit fd70a681dc
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2

View file

@ -80,6 +80,10 @@ fromBytes = hexString . BS16.encode
toBytes :: HexString -> BS.ByteString
toBytes (HexString bs) = BS16.decodeLenient bs
-- | Reads a human-readable hex string into a `HexString`
fromText :: T.Text -> HexString
fromText = hexString . TE.encodeUtf8
-- | Access to a 'T.Text' representation of the 'HexString'
toText :: HexString -> T.Text
toText (HexString bs) = TE.decodeUtf8 bs