{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Misc.Safe (
SDL3.Sys.Bindgen.Misc.Safe.sDL_OpenURL,
)
where
import Prelude (IO, fmap)
import HsBindgen.Runtime.PtrConst qualified as PtrConst
import HsBindgen.Runtime.Support qualified as BG
import HsBindgen.Runtime.Support.CAPI qualified
$( HsBindgen.Runtime.Support.CAPI.addCSource
( HsBindgen.Runtime.Support.CAPI.unlines
[ "#define SDL_MAIN_HANDLED"
, "#define SDL_SLOW_MEMCPY"
, "#define SDL_SLOW_MEMMOVE"
, "#define SDL_SLOW_MEMSET"
, "#include <SDL3/SDL_misc.h>"
, "_Bool hs_bindgen_b3f3010b7eba15e0 ("
, " char const *arg1"
, ")"
, "{"
, " return (SDL_OpenURL)(arg1);"
, "}"
]
)
)
foreign import ccall safe "hs_bindgen_b3f3010b7eba15e0"
hs_bindgen_b3f3010b7eba15e0_base
:: BG.Ptr BG.Void
-> IO BG.CBool
hs_bindgen_b3f3010b7eba15e0
:: PtrConst.PtrConst BG.CChar
-> IO BG.CBool
hs_bindgen_b3f3010b7eba15e0 :: PtrConst CChar -> IO CBool
hs_bindgen_b3f3010b7eba15e0 =
\PtrConst CChar
x0 ->
(CBool -> CBool) -> IO CBool -> IO CBool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CBool -> CBool
FFIType CBool -> CBool
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType (Ptr Void -> IO CBool
hs_bindgen_b3f3010b7eba15e0_base (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x0))
sDL_OpenURL
:: PtrConst.PtrConst BG.CChar
-> IO BG.CBool
sDL_OpenURL :: PtrConst CChar -> IO CBool
sDL_OpenURL = PtrConst CChar -> IO CBool
hs_bindgen_b3f3010b7eba15e0