src/Data/HexString.hs

@@ -6,7 +6,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 module Data.HexString
-  ( HexString
+  ( HexString(..)
   , hexString
   , fromBinary
   , toBinary
@@ -36,9 +36,9 @@ 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)
+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