    {-# LANGUAGE ExplicitForAll #-}

    -- | This game mode lets you manage your own input. Pressing ESC will not abort the program.
    --   You also don't get automatic pan and zoom controls like with `display`.
    module Graphics.Gloss.Interface.IO.Game
            ( module Graphics.Gloss.Data.Display
            , module Graphics.Gloss.Data.Picture
            , module Graphics.Gloss.Data.Color
            , playIO
            , Event(..), Key(..), SpecialKey(..), MouseButton(..), KeyState(..), Modifiers(..))
    where
    import Graphics.Gloss.Data.Display
    import Graphics.Gloss.Data.Picture
    import Graphics.Gloss.Data.Color
    import Graphics.Gloss.Internals.Interface.Game
    import Graphics.Gloss.Internals.Interface.Backend

    -- | Play a game in a window, using IO actions to build the pictures.
    playIO  :: forall world
            .  Display                      -- ^ Display mode.
            -> Color                        -- ^ Background color.
            -> Int                          -- ^ Number of simulation steps to take for each second of real time.
            -> world                        -- ^ The initial world.
            -> (world -> IO Picture)        -- ^ An action to convert the world a picture.
            -> (Event -> world -> IO world) -- ^ A function to handle input events.
            -> (Float -> world -> IO world) -- ^ A function to step the world one iteration.
                                            --   It is passed the period of time (in seconds) needing to be advanced.
            -> IO ()

    playIO :: Display
    -> Color
    -> Int
    -> world
    -> (world -> IO Picture)
    -> (Event -> world -> IO world)
    -> (Float -> world -> IO world)
    -> IO ()
    playIO  display :: Display
    display backColor :: Color
    backColor simResolution :: Int
    simResolution
            worldStart :: world
    worldStart worldToPicture :: world -> IO Picture
    worldToPicture worldHandleEvent :: Event -> world -> IO world
    worldHandleEvent worldAdvance :: Float -> world -> IO world
    worldAdvance

     = GLUTState
    -> Display
    -> Color
    -> Int
    -> world
    -> (world -> IO Picture)
    -> (Event -> world -> IO world)
    -> (Float -> world -> IO world)
    -> Bool
    -> IO ()
    forall world a.
    Backend a =>
    a
    -> Display
    -> Color
    -> Int
    -> world
    -> (world -> IO Picture)
    -> (Event -> world -> IO world)
    -> (Float -> world -> IO world)
    -> Bool
    -> IO ()
    playWithBackendIO GLUTState
    defaultBackendState
            Display
    display Color
    backColor Int
    simResolution
            world
    worldStart world -> IO Picture
    worldToPicture Event -> world -> IO world
    worldHandleEvent Float -> world -> IO world
    worldAdvance
            Bool
    False