From a384c08466d343033b390d07c416414745a5adb6 Mon Sep 17 00:00:00 2001 From: andromeda Date: Tue, 18 Aug 2026 14:44:09 +0200 Subject: fix comptime errors --- Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index 55ada37..1a81830 100644 --- a/Main.hs +++ b/Main.hs @@ -13,7 +13,7 @@ import Foreign.C import Foreign.C.ConstPtr (ConstPtr(..)) import Foreign.Marshal.Alloc (alloca) import Foreign.Marshal.Array (advancePtr) -import Foreign.Ptr (Ptr) +import Foreign.Ptr (Ptr, nullPtr) import Foreign.Storable (peek) import qualified RGFW as RGFW import qualified Vulkan.Core10 as Vk @@ -37,7 +37,7 @@ main = withRGFW "rgfw instance title" 0 $ \_ -> do Vk.withInstance (zero {Vk.enabledExtensionNames = exts}) Nothing bracket $ \i -> do putStrLn $ show i withWindow "test window" 0 0 width height ((fromIntegral (RGFW.unwrapRGFW_windowFlags_enum RGFW.RGFW_windowCenter)) .|. (fromIntegral (RGFW.unwrapRGFW_windowFlags_enum RGFW.RGFW_windowNoResize))) $ \window -> do - res <- RGFW.rGFW_window_createSurface_Vulkan window i nullPtr + res <- RGFW.rGFW_window_createSurface_Vulkan window (coerce $ Vk.instanceHandle i) nullPtr ret <- gameloop window 0 putStr "gameloop returned with code: " putStrLn $ show ret -- cgit v1.3.1