    -- | Display mode is for drawing a static picture.
    module Graphics.Gloss.Interface.Pure.Display
            ( module Graphics.Gloss.Data.Display
            , module Graphics.Gloss.Data.Picture
            , module Graphics.Gloss.Data.Color
            , display)
    where
    import Graphics.Gloss.Data.Display
    import Graphics.Gloss.Data.Picture
    import Graphics.Gloss.Data.Color
    import Graphics.Gloss.Internals.Interface.Display
    import Graphics.Gloss.Internals.Interface.Backend

    -- | Open a new window and display the given picture.
    display :: Display          -- ^ Display mode.
            -> Color            -- ^ Background color.
            -> Picture          -- ^ The picture to draw.
            -> IO ()

    display :: Display -> Color -> Picture -> IO ()
    display dis :: Display
    dis backColor :: Color
    backColor picture :: Picture
    picture
            = GLUTState
    -> Display -> Color -> IO Picture -> (Controller -> IO ()) -> IO ()
    forall a.
    Backend a =>
    a
    -> Display -> Color -> IO Picture -> (Controller -> IO ()) -> IO ()
    displayWithBackend
                    GLUTState
    defaultBackendState
                    Display
    dis
                    Color
    backColor
                    (Picture -> IO Picture
    forall (m :: * -> *) a. Monad m => a -> m a
    return Picture
    picture)
                    (IO () -> Controller -> IO ()
    forall a b. a -> b -> a
    const (() -> IO ()
    forall (m :: * -> *) a. Monad m => a -> m a
    return ()))