{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Power.Safe (
SDL3.Sys.Bindgen.Power.Safe.sDL_GetPowerInfo,
)
where
import Prelude (IO, fmap)
import HsBindgen.Runtime.Support qualified as BG
import HsBindgen.Runtime.Support.CAPI qualified
import SDL3.Sys.Bindgen.Power
$( 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_power.h>"
, "SDL_PowerState hs_bindgen_d43ded70ea4a92e6 ("
, " signed int *arg1,"
, " signed int *arg2"
, ")"
, "{"
, " return (SDL_GetPowerInfo)(arg1, arg2);"
, "}"
]
)
)
foreign import ccall safe "hs_bindgen_d43ded70ea4a92e6"
hs_bindgen_d43ded70ea4a92e6_base
:: BG.Ptr BG.Void
-> BG.Ptr BG.Void
-> IO BG.CInt
hs_bindgen_d43ded70ea4a92e6
:: BG.Ptr BG.CInt
-> BG.Ptr BG.CInt
-> IO SDL_PowerState
hs_bindgen_d43ded70ea4a92e6 :: Ptr CInt -> Ptr CInt -> IO SDL_PowerState
hs_bindgen_d43ded70ea4a92e6 =
\Ptr CInt
x0 ->
\Ptr CInt
x1 ->
(CInt -> SDL_PowerState) -> IO CInt -> IO SDL_PowerState
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CInt -> SDL_PowerState
FFIType SDL_PowerState -> SDL_PowerState
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType (Ptr Void -> Ptr Void -> IO CInt
hs_bindgen_d43ded70ea4a92e6_base (Ptr CInt -> FFIType (Ptr CInt)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType Ptr CInt
x0) (Ptr CInt -> FFIType (Ptr CInt)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType Ptr CInt
x1))
sDL_GetPowerInfo
:: BG.Ptr BG.CInt
-> BG.Ptr BG.CInt
-> IO SDL_PowerState
sDL_GetPowerInfo :: Ptr CInt -> Ptr CInt -> IO SDL_PowerState
sDL_GetPowerInfo = Ptr CInt -> Ptr CInt -> IO SDL_PowerState
hs_bindgen_d43ded70ea4a92e6