[HOpenGL] Black Screen with GHC&HOpenGL