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 = forall (m :: Type -> Type) a. MonadIO m => IO a -> m a
liftIO IO CString
getPlatformFFI
{-# INLINE getPlatform #-}