Vergara_Tech/haskell-hexstring
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

patch from #3

Browse source
This commit is contained in:
Jay McCarthy 2022-05-21 14:16:17 -04:00
parent 5c065f60f3
commit 085c16fb21
No known key found for this signature in database
GPG key ID: 18C0D927A7F641FE
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Data/HexString.hs
View file

@ -12,7 +12,7 @@ import Data.Aeson
import Data.Word (Word8) import Data.Word (Word8)
import qualified Data.ByteString as BS import qualified Data.ByteString as BS
import qualified Data.ByteString.Base16 as BS16 (decode, encode) import qualified Data.ByteString.Base16 as BS16 (decodeLenient, encode)
import qualified Data.ByteString.Lazy as BSL import qualified Data.ByteString.Lazy as BSL
import qualified Data.Text as T import qualified Data.Text as T
@ -52,7 +52,7 @@ fromBinary = hexString . BS16.encode . BSL.toStrict . B.encode
-- | Converts a 'HexString' to a 'B.Binary' value -- | Converts a 'HexString' to a 'B.Binary' value
toBinary :: B.Binary a => HexString -> a toBinary :: B.Binary a => HexString -> a
toBinary (HexString bs) = B.decode . BSL.fromStrict . fst . BS16.decode $ bs toBinary (HexString bs) = B.decode . BSL.fromStrict . BS16.decodeLenient $ bs
-- | Reads a 'BS.ByteString' as raw bytes and converts to hex representation. We -- | Reads a 'BS.ByteString' as raw bytes and converts to hex representation. We
-- cannot use the instance Binary of 'BS.ByteString' because it provides -- cannot use the instance Binary of 'BS.ByteString' because it provides
@ -62,7 +62,7 @@ fromBytes = hexString . BS16.encode
-- | Access to the raw bytes in a 'BS.ByteString' format. -- | Access to the raw bytes in a 'BS.ByteString' format.
toBytes :: HexString -> BS.ByteString toBytes :: HexString -> BS.ByteString
toBytes (HexString bs) = (fst . BS16.decode) bs toBytes (HexString bs) = BS16.decodeLenient bs
-- | Access to a 'T.Text' representation of the 'HexString' -- | Access to a 'T.Text' representation of the 'HexString'
toText :: HexString -> T.Text toText :: HexString -> T.Text