[Haskell] GLUT gears speed

Hello, what's the reason behind the HOpenGL gears only being about 2/3 as fast as glxgears on my computer? Since I don't use any 3D acceleration, I thought that most of the CPU's time is spend for rendering and displaying so that speed differences between Haskell and C shouldn't matter that much. Best wishes, Wolfgang