Drezil/dear-imgui.hs
1
0
Fork 0
mirror of https://github.com/Drezil/dear-imgui.hs.git synced 2025-11-04 07:01:06 +01: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
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
data ImVec4 = ImVec4 { x, y, z, w :: {-# unpack #-} Float }
data ImVec4 = ImVec4 { x, y, z, w :: {-# unpack #-} !Float }
instance Storable ImVec4 where
@@ -25,7 +25,7 @@ instance Storable ImVec4 where
poke (castPtr ptr `plusPtr` (sizeOf x * 3)) w
peek ptr = do
x <- peek (castPtr ptr `plusPtr` )
x <- peek (castPtr ptr )
y <- peek (castPtr ptr `plusPtr` (sizeOf x * 1))
z <- peek (castPtr ptr `plusPtr` (sizeOf x * 2))
w <- peek (castPtr ptr `plusPtr` (sizeOf x * 3))
@@ -37,4 +37,4 @@ imguiContext = mempty
{ ctxTypesTable = Map.fromList
[ ( TypeName "ImVec4", [t| ImVec4 |] )
]
}
}