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

Compare commits

base: Vergara_Tech:a7adee13de4c8f6024ff101b8f1eab30c4dc5e2a
Branches Tags
Vergara_Tech:master
Vergara_Tech:dev
Vergara_Tech:0.12.2.0
..
compare: Vergara_Tech:998ff44733654d11d77c3ffa946cfc8a332d45d2
Branches Tags
Vergara_Tech:master
Vergara_Tech:dev
Vergara_Tech:0.12.2.0

2 commits
a7adee13de ... 998ff44733

Author SHA1 Message Date
Rene Vergara
998ff44733
Merge branch 'dev' of git.vergara.tech:Vergara_Tech/haskell-hexstring into dev 2024-02-05 20:19:47 -06:00
Rene Vergara
be830be714
Expose HexString constructor 2024-02-05 20:18:05 -06:00
1 changed files with 6 additions and 6 deletions
Show stats Expand all files Collapse all files

12
src/Data/HexString.hs
View file

@ -36,12 +36,12 @@ import qualified Generics.SOP as SOP
-- | Represents a Hex string. Guarantees that all characters it contains -- | Represents a Hex string. Guarantees that all characters it contains
-- are valid hex characters. -- are valid hex characters.
data HexString = newtype HexString = HexString
HexString BS.ByteString { bytes :: BS.ByteString
deriving stock (Eq, Prelude.Show, GHC.Generic) } deriving stock (Eq, Prelude.Show, GHC.Generic)
deriving anyclass (SOP.Generic, SOP.HasDatatypeInfo) deriving anyclass (SOP.Generic, SOP.HasDatatypeInfo)
deriving anyclass (Data.Structured.Show) deriving anyclass (Data.Structured.Show)
deriving (BorshSize, ToBorsh, FromBorsh) via AsStruct HexString deriving (BorshSize, ToBorsh, FromBorsh) via AsStruct HexString
instance FromJSON HexString where instance FromJSON HexString where
parseJSON = withText "HexString" $ pure . hexString . TE.encodeUtf8 parseJSON = withText "HexString" $ pure . hexString . TE.encodeUtf8