From 5f1e49c4ced1fcc9ef7e3bd123402a5e80adda05 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Thu, 19 Feb 2026 11:11:54 +0000
Subject: [PATCH] Use ByteString

---
 haskell/exe/Main.hs  | 3 ++-
 haskell/garnet.cabal | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/haskell/exe/Main.hs b/haskell/exe/Main.hs
index 3038091..e4250fe 100644
--- a/haskell/exe/Main.hs
+++ b/haskell/exe/Main.hs
@@ -1,5 +1,6 @@
 module Main (main) where
 
+import Data.ByteString
 import Foreign
 import Foreign.C
 import GarnetRs
@@ -9,7 +10,7 @@ import HsBindgen.Runtime.PtrConst
 
 main :: IO ()
 main = do
-    withCString "Haskell" $ hello . unsafeFromPtr
+    useAsCString "Haskell" $ hello . unsafeFromPtr
     alloca \ptr -> do
         writeRaw ptr T{a = CBool 1, b = 42}
         hello_struct (unsafeFromPtr ptr)
diff --git a/haskell/garnet.cabal b/haskell/garnet.cabal
index d07f408..b031638 100644
--- a/haskell/garnet.cabal
+++ b/haskell/garnet.cabal
@@ -48,5 +48,6 @@ executable garnet
         -with-rtsopts=-N
     build-depends:
         base >= 4.14,
+        bytestring,
         garnet-generated,
         hs-bindgen-runtime,