Affichage graphics OpenGL et GLUT bizarre

Bonjour,
Pour m'aider à apprendre Haskell je fait tourner le programme de dessin de Mandelbrot de Yan Esposito.
A mon grand étonnement, si la fenêtre graphique n'a pas de focus le programme le lui donne à la fin du traitement, mais affiche une fenêtre noire, donc le fond.
Si je donne manuellement le focus a la fenêtre graphique après le lancement, à la fin de traitement j'obtiens l'image de Mandelbrot.
En ajoutant en plus "flush" à la fin de la function display et en donnant le focus, j'obtiens une image aux couleurs plus prononcées et les zones plus tranchées.
Comment faire pour que le programme donne le focus a la fenêtre graphique des le départ?
Ce programme est intéressant car il a sa propre version de Complex.
Eurêka, j'ai trouvé . Il faut ajouter un appel display dans le mainLoop.
La fenêtre ne sera affichée qu'à la fin, mais avec l'image !