Parse hex-encoded bytestrings correctly.

Author: nc6

cuddle.cabal

@@ -1,6 +1,6 @@
 cabal-version:   3.4
 name:            cuddle
-version:         0.1.9.0
+version:         0.1.10.0
 synopsis:        CDDL Generator and test utilities
 
 -- description:
@@ -58,6 +58,7 @@ library
     -- other-extensions:
     build-depends:
         , base                ^>=4.14.3.0 || ^>=4.16.3.0 || ^>=4.18.1.0 || ^>=4.19.0.0
+        , base16-bytestring
         , bytestring
         , capability
         , cborg

src/Codec/CBOR/Cuddle/CBOR/Gen.hs

@@ -54,6 +54,7 @@ import System.Random.Stateful
     randomM,
     uniformByteStringM,
   )
+import qualified Data.ByteString.Base16 as Base16
 
 --------------------------------------------------------------------------------
 -- Generator infrastructure
@@ -383,7 +384,9 @@ genValue (VFloat16 i) = pure . THalf $ i
 genValue (VFloat32 i) = pure . TFloat $ i
 genValue (VFloat64 i) = pure . TDouble $ i
 genValue (VText t) = pure $ TString t
-genValue (VBytes b) = pure $ TBytes b
+genValue (VBytes b) = case Base16.decode b of 
+  Right bHex -> pure $ TBytes bHex
+  Left err -> error $ "Unable to parse hex encoded bytestring: " <> err
 
 --------------------------------------------------------------------------------
 -- Generator functions