run ncurses in state monad?

statecurses.hs

module Main where

import UI.NCurses
import Data.Maybe
import Control.Monad
import Control.Monad.State

main :: IO ()
main = runCurses $ void (runStateT top [])

top = do
  lift $ setEcho False
  w <- lift $ defaultWindow
  gameLoop w

gameLoop w = do
  c <- lift $ getCharInput w
  stuff <- get
  put $ c : stuff
  newstuff <- get
  lift $ updateWindow w $ do
      moveCursor 0 0
      drawString $ "it was " ++ newstuff
  lift render
  unless (c == 'q') $ gameLoop w

getCharInput w = loop where
  loop = do
    ev <- getEvent w Nothing
    case ev of
        Just (EventCharacter c) -> return c
        Nothing -> loop
        Just _ -> loop