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,