TextureCube support.

1 files changed, 5 insertions, 3 deletions

diff --git a/src/LambdaCube/GL/Util.hs b/src/LambdaCube/GL/Util.hs
index 071e86b..1320f7d 100644
--- a/src/LambdaCube/GL/Util.hs
+++ b/src/LambdaCube/GL/Util.hs
@@ -141,7 +141,8 @@ instance Uniformable (V3 V4F) where uniformContexts _ = contexts $ supports Type
 instance Uniformable (V4 V4F) where uniformContexts _ = contexts $ supports TypeM44F
 
 
-instance Uniformable TextureData where uniformContexts _ = DMap.empty -- TODO
+instance Uniformable TextureData where uniformContexts _ = DMap.empty
+instance Uniformable TextureCubeData where uniformContexts _ = DMap.empty
 
 mkU :: GLData a c => TypeTag c -> a -> IO GLUniform
 mkU ty a = GLTypedUniform ty <$> newIORef (GLUniformValue a)
@@ -177,8 +178,9 @@ initializeUniform t = case witnessType t of
         TypeM44F -> mkU ty (V4 z4 z4 z4 z4)
 
     Nothing -> case t of
-        FTexture2D -> GLUniform t <$> newIORef (TextureData 0)
-        _          -> fail $ "initializeUniform: " ++ show t
+        FTexture2D   -> GLUniform <$> newIORef (Texture2DName 0)
+        FTextureCube -> GLUniform <$> newIORef (TextureCubeName 0)
+        _            -> fail $ "initializeUniform: " ++ show t
 
 
 data TypeMismatch c a = TypeMismatch