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

Compare commits

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

No commits in common. "998ff44733654d11d77c3ffa946cfc8a332d45d2" and "a7adee13de4c8f6024ff101b8f1eab30c4dc5e2a" have entirely different histories.
998ff44733 ... a7adee13de

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.
newtype HexString = HexString data HexString =
{ bytes :: BS.ByteString HexString 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