@@ -566,7 +566,7 @@ externalLit = \case
566566 Nat -> TyCon "Natural"
567567 Float -> TyCon "Double"
568568 Double -> TyCon "Double"
569− Byte -> TyCon "Word8"
569+ Byte -> TyCon "ByteString"
570570 UInt32 -> TyCon "Word32"
571571 UInt64 -> TyCon "Word64"
572572 Int32 -> TyCon "Int32"
@@ -586,7 +586,7 @@ internalLit = \case
586586 Nat -> TyApp (TyCon "Textual") (TyCon "Nat")
587587 Float -> TyApp (TyCon "Textual") (TyCon "Double")
588588 Double -> TyApp (TyCon "Textual") (TyCon "Double")
589− Byte -> TyApp (TyCon "Textual") (TyCon "Word8")
589+ Byte -> TyCon "Base64"
590590 UInt32 -> TyApp (TyCon "Textual") (TyCon "Word32")
591591 UInt64 -> TyApp (TyCon "Textual") (TyCon "Word64")
592592 Int32 -> TyApp (TyCon "Textual") (TyCon "Int32")
@@ -617,7 +617,7 @@ iso = \case
617617 TLit DateTime -> Just (var "_DateTime")
618618 TLit Float -> Just (var "_Coerce")
619619 TLit Double -> Just (var "_Coerce")
620− TLit Byte -> Just (var "_Coerce")
620+ TLit Byte -> Just (var "_Base64")
621621 TLit UInt32 -> Just (var "_Coerce")
622622 TLit UInt64 -> Just (var "_Coerce")
623623 TLit Int32 -> Just (var "_Coerce")