diff --git a/src/Data/HexString.hs b/src/Data/HexString.hs index ef71b4b..79e3682 100644 --- a/src/Data/HexString.hs +++ b/src/Data/HexString.hs @@ -83,7 +83,7 @@ toBytes (HexString bs) = BS16.decodeLenient bs -- | Reads a human-readable hex string into a `HexString` fromText :: T.Text -> HexString -fromText = hexString . TE.encodeUtf8 +fromText = hexString . BS16.decodeLenient . TE.encodeUtf8 -- | Access to a 'T.Text' representation of the 'HexString' toText :: HexString -> T.Text