From 1881b0385bfaa63eb30b593f940b1a5eac597501 Mon Sep 17 00:00:00 2001
From: Gabriella Gonzalez <gabriel@arista.com>
Date: Fri, 1 Jul 2022 12:54:58 -0700
Subject: [PATCH] Fix potential bug when marshalling `string` struct

---
 src/Nix.hsc | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Nix.hsc b/src/Nix.hsc
index e54da88..8688a52 100644
--- a/src/Nix.hsc
+++ b/src/Nix.hsc
@@ -73,16 +73,16 @@ instance Storable Strings where
     alignment _ = #{alignment struct strings}
 
     peek pointer = do
-        data_ <- #{peek struct string, data} pointer
+        data_ <- #{peek struct strings, data} pointer
 
-        size <- #{peek struct string, size} pointer
+        size <- #{peek struct strings, size} pointer
 
         return Strings{ data_, size }
 
     poke pointer Strings{ data_, size } = do
-        #{poke struct string, data} pointer data_
+        #{poke struct strings, data} pointer data_
 
-        #{poke struct string, size} pointer size
+        #{poke struct strings, size} pointer size
 
 fromStrings :: Strings -> IO (Vector ByteString)
 fromStrings Strings{ data_, size} = do