    module SDL.Raw.Platform (
      -- * Platform Detection
      getPlatform
    ) where

    import Control.Monad.IO.Class
    import Foreign.C.String

    foreign import ccall "SDL.h SDL_GetPlatform" getPlatformFFI :: IO CString

    getPlatform :: MonadIO m => m CString
    getPlatform :: forall (m :: Type -> Type). MonadIO m => m CString
    getPlatform = IO CString -> m CString
    forall a. IO a -> m a
    forall (m :: Type -> Type) a. MonadIO m => IO a -> m a
    liftIO IO CString
    getPlatformFFI
    {-# INLINE getPlatform #-}