1 files changed, 1 insertions, 1 deletions

diff --git a/src/LambdaCube/GL/Backend.hs b/src/LambdaCube/GL/Backend.hs
index 50d0d3f..8c533f2 100644
--- a/src/LambdaCube/GL/Backend.hs
+++ b/src/LambdaCube/GL/Backend.hs
@@ -775,7 +775,7 @@ renderSlot glDrawCallCounterRef glVertexBufferRef glIndexBufferRef cmds = forM_
         GLSetUniform idx (GLTypedUniform ty ref)        -> setUniform idx ty (readIORef ref)
         GLSetUniform idx (GLUniform ref)                -> return () -- putStrLn $ "TODO: setUniform FTexture2D"
         GLBindTexture txTarget tuRef (GLUniform ref)  -> do
-                                                            txObj <- coerce <$> readIORef ref
+                                                            txObj <- objectName <$> readIORef ref
                                                             do
                                                                 texUnit <- readIORef tuRef
                                                                 glActiveTexture $ GL_TEXTURE0 + fromIntegral texUnit