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
-- are valid hex characters.
data HexString =
HexString BS.ByteString
deriving stock (Eq, Prelude.Show, GHC.Generic)
deriving anyclass (SOP.Generic, SOP.HasDatatypeInfo)
deriving anyclass (Data.Structured.Show)
deriving (BorshSize, ToBorsh, FromBorsh) via AsStruct HexString
newtype HexString = HexString
{ bytes :: BS.ByteString
} deriving stock (Eq, Prelude.Show, GHC.Generic)
deriving anyclass (SOP.Generic, SOP.HasDatatypeInfo)
deriving anyclass (Data.Structured.Show)
deriving (BorshSize, ToBorsh, FromBorsh) via AsStruct HexString
instance FromJSON HexString where
parseJSON = withText "HexString" $ pure . hexString . TE.encodeUtf8