Haskell: OpenGL, how to prevent immediate window closing

Whenever I clo开发者_运维百科se OpenGL window it makes ghci console from which the app was started to immediately disappear. Is there a way to prevent this behaviour? A sample app.

Thanks.

---

before calling mainLoop, you can change the actionOnWindowClose mode :

actionOnWindowClose $= MainLoopReturns

mainLoop

Don't know if it works for non-Linux users.