Drezil/dear-imgui.hs
1
0
Fork 0
mirror of https://github.com/Drezil/dear-imgui.hs.git synced 2024-11-22 16:57:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixes for DearImGui.Context

Browse Source
This commit is contained in:
Oliver Charles 2021-01-25 08:55:20 +00:00
parent d382b6460f
commit 774ef945e6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/DearImGui/Context.hs
View File

@ -10,7 +10,7 @@ import qualified Data.Map.Strict as Map
import Foreign import Foreign
data ImVec4 = ImVec4 { x, y, z, w :: {-# unpack #-} Float } data ImVec4 = ImVec4 { x, y, z, w :: {-# unpack #-} !Float }
instance Storable ImVec4 where instance Storable ImVec4 where
@ -25,7 +25,7 @@ instance Storable ImVec4 where
poke (castPtr ptr `plusPtr` (sizeOf x * 3)) w poke (castPtr ptr `plusPtr` (sizeOf x * 3)) w
peek ptr = do peek ptr = do
x <- peek (castPtr ptr `plusPtr` ) x <- peek (castPtr ptr )
y <- peek (castPtr ptr `plusPtr` (sizeOf x * 1)) y <- peek (castPtr ptr `plusPtr` (sizeOf x * 1))
z <- peek (castPtr ptr `plusPtr` (sizeOf x * 2)) z <- peek (castPtr ptr `plusPtr` (sizeOf x * 2))
w <- peek (castPtr ptr `plusPtr` (sizeOf x * 3)) w <- peek (castPtr ptr `plusPtr` (sizeOf x * 3))
@ -37,4 +37,4 @@ imguiContext = mempty
{ ctxTypesTable = Map.fromList { ctxTypesTable = Map.fromList
[ ( TypeName "ImVec4", [t| ImVec4 |] ) [ ( TypeName "ImVec4", [t| ImVec4 |] )
] ]
} }