Skip to content

Instantly share code, notes, and snippets.

@skatenerd

skatenerd/ghcbug.hs

Last active November 17, 2015 22:36
Show Gist options
  • Save skatenerd/4fcc99434c901e8ef373 to your computer and use it in GitHub Desktop.
Save skatenerd/4fcc99434c901e8ef373 to your computer and use it in GitHub Desktop.
Download ZIP
minimal example to recreate https://ghc.haskell.org/trac/ghc/ticket/11048
Raw
ghcbug.hs
module Main where
import UI.NCurses
import Control.Monad.State
main :: IO ()
main = runCurses $ void (runStateT top [])
top = do
lift $ setEcho False
w <- lift $ defaultWindow
lift getEvent w $ Just 1000
-- lift $ getEvent w $ Just 1000
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment