From c1d30b0e612f7ed73c05d5393c0f1cc25c6f27d4 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Mon, 13 Apr 2026 15:50:03 +0100
Subject: [PATCH] refactor

---
 lib/GarnetRs/Wrapped.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/GarnetRs/Wrapped.hs b/lib/GarnetRs/Wrapped.hs
index 390bc64..a9e1ade 100644
--- a/lib/GarnetRs/Wrapped.hs
+++ b/lib/GarnetRs/Wrapped.hs
@@ -66,7 +66,7 @@ withBTree =
                 Raw.Fork_Body (unsafeFromPtr lPtr) (unsafeFromPtr rPtr)
 
 hello :: ByteString -> IO ()
-hello s = useAsCString s $ Raw.hello . unsafeFromPtr
+hello = flip useAsCString $ Raw.hello . unsafeFromPtr
 
 helloStruct :: T -> IO ()
 helloStruct = flip with (Raw.hello_struct . unsafeFromPtr) . convertT