better solution to my opinion when we deal with hdf5 symbols

picca · Aug 9, 2024 · 98f58e3 · 98f58e3
1 parent 3d3bba5
commit 98f58e3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Bindings/HDF5/Dataspace.hsc b/src/Bindings/HDF5/Dataspace.hsc
@@ -141,7 +141,7 @@ encodeDataspace (Dataspace space_id) =
     withOutByteString $ \buf bufSz ->
         withInOut_ bufSz $ \ioBufSz ->
             withErrorCheck_ $
-            h5s_encode1 space_id buf ioBufSz
+            h5s_encode space_id buf ioBufSz
 
 decodeDataspace :: BS.ByteString -> IO Dataspace
 decodeDataspace bs = BS.unsafeUseAsCString bs $ \buf ->

diff --git a/src/Bindings/HDF5/Raw/H5S.hsc b/src/Bindings/HDF5/Raw/H5S.hsc
@@ -174,9 +174,9 @@ import Foreign.Ptr.Conventions
 #if H5_VERSION_GE(1,12,0)
 # ccall H5Sencode2, <hid_t> -> OutArray CChar -> InOut <size_t> -> <hid_t> -> IO <herr_t>
 # ccall H5Sencode1, <hid_t> -> OutArray CChar -> InOut <size_t> -> IO <herr_t>
+h5s_encode = h5s_encode1
 #else
 # ccall H5Sencode,  <hid_t> -> OutArray CChar -> InOut <size_t> -> IO <herr_t>
-h5s_encode1 = h5s_encode
 #endif
 
 -- |Decode a binary object description of dataspace and