double_state.hs

runGlisha loadFn drawFn callbacks = do
    window <- glishaInit callbacks
    userState <- loadFn

    G.setKeyCallback window $ Just $ \window key scancode action mods -> do
        when (action == G.KeyState'Pressed) (onKeyDown callbacks $ key)
        when (action == G.KeyState'Released) (onKeyUp callbacks $ key)

    glishaLoop window drawFn userState

    glishaSuccessfulExit window