Ticket #7629: Try2.hs

File Try2.hs, 161 bytes (added by juhpetersen, 15 months ago)

Smaller testcase using only glib: "ghc-7.4.2 --make Try2.hs" && ./Try2 => segfaults on i686

Line 
1import System.Glib.MainLoop
2   
3main = do
4  timeoutAddFull (putStrLn "tick" >> return True) priorityDefaultIdle 2000
5  mainLoopNew Nothing True >>= mainLoopRun