如何在gtk2hs中的事件处理程序之间传递状态

import Graphics.UI.Gtk
import Data.IORef

data AppState = AppState
  { counter :: IORef Int
  }

initAppState :: IO AppState
initAppState = do
  counterRef <- newIORef 0
  return AppState { counter = counterRef }

onButtonClicked :: AppState -> IO ()
onButtonClicked state = do
  counterVal <- readIORef (counter state)
  putStrLn $ "Counter value: " ++ show counterVal

  modifyIORef (counter state) (+1)

  updatedCounterVal <- readIORef (counter state)
  putStrLn $ "Updated counter value: " ++ show updatedCounterVal

main :: IO ()
main = do
  _ <- initGUI

  state <- initAppState

  window <- windowNew
  button <- buttonNewWithLabel "Click Me"

  _ <- on button buttonActivated (onButtonClicked state)
  _ <- onDestroy window mainQuit

  containerAdd window button
  widgetShowAll window

  mainGUI