fixed import

This commit is contained in:
Nicole Dresselhaus 2014-05-13 14:11:02 +02:00
parent 527d620da6
commit 1bfec031e2
No known key found for this signature in database
GPG Key ID: BC16D887851A1A80
2 changed files with 5 additions and 1 deletions

View File

@ -139,3 +139,7 @@ genColorData :: Int -- ^ Amount
-> [Int8]
genColorData n c = take (length c*n) (cycle c)
-- from GLUtil
-- |Allocate and fill a 'BufferObject' from a list of 'Storable's.
makeBuffer :: Storable a => BufferTarget -> [a] -> IO BufferObject
makeBuffer target elems = makeBufferLen target (length elems) elems

View File

@ -7,7 +7,7 @@ import Foreign.Storable
import Graphics.Rendering.OpenGL.GL
import Graphics.Rendering.OpenGL.Raw.Core31
import Graphics.Rendering.OpenGL.Raw.ARB.TessellationShader
import Graphics.GLUtil.BufferObjects (offset0)
import Graphics.GLUtil.BufferObjects
import qualified Linear as L
import Control.Lens ((^.))
import Control.Monad.RWS.Strict (liftIO)