module GLTypeConversion where

import Graphics.Rendering.OpenGL
import Unsafe.Coerce

convertGLdouble :: Double -> GLdouble
-- convertGLdouble = realToFrac
convertGLdouble = unsafeCoerce