context :: a -> IO (GLUTContext a)
context init = pure GLUTContext <*> newIORef [] <*> Time.newTimeIORef <*> newIORef init
context :: a -> IO (GLUTContext a)
context init = pure GLUTContext <*> newIORef [] <*> Time.newTimeIORef <*> newIORef init
context init = pure GLUTContext <*> newIORef [] <*> Time.newTimeIORef <*> newIORef init