3d model viewer in Haskell with HOpenGL, GLFW