    -----------------------------------------------------------------------------
    -- |
    -- Module      :  Graphics.UI.SDL.Time
    -- Copyright   :  (c) David Himmelstrup 2005
    -- License     :  BSD-like
    --
    -- Maintainer  :  lemmih@gmail.com
    -- Stability   :  provisional
    -- Portability :  portable
    --
    -----------------------------------------------------------------------------
    module Graphics.UI.SDL.Time where

    import Foreign

    -- Uint32 SDL_GetTicks(void);
    foreign import ccall unsafe "SDL_GetTicks" getTicks :: IO Word32

    -- void SDL_Delay(Uint32 ms);
    foreign import ccall unsafe "SDL_Delay" delay :: Word32 -> IO ()