1 files changed, 13 insertions, 0 deletions

diff --git a/src/LambdaCube/GL/Backend.hs b/src/LambdaCube/GL/Backend.hs
index 1cf3f62..c5e3190 100644
--- a/src/LambdaCube/GL/Backend.hs
+++ b/src/LambdaCube/GL/Backend.hs
@@ -220,7 +220,10 @@ clearRenderTarget GLRenderTarget{..} values = do
     (mask,_) <- foldM setClearValue (0,0) values
     glClear $ fromIntegral mask
 
+printGLStatus :: IO ()
 printGLStatus = checkGL >>= print
+
+printFBOStatus :: IO ()
 printFBOStatus = checkFBO >>= print
 
 compileProgram :: Program -> IO GLProgram
@@ -777,6 +780,8 @@ renderSlot glDrawCallCounterRef glVertexBufferRef glIndexBufferRef cmds = forM_
     --isOk <- checkGL
     --putStrLn $ isOk ++ " - " ++ show cmd
 
+setupRenderTarget :: IORef (Maybe InputConnection)
+                           -> GLRenderTarget -> IO ()
 setupRenderTarget glInput GLRenderTarget{..} = do
   -- set target viewport
   ic' <- readIORef glInput
@@ -792,6 +797,11 @@ setupRenderTarget glInput GLRenderTarget{..} = do
       Nothing -> return ()
       Just bl -> withArray bl $ glDrawBuffers (fromIntegral $ length bl)
 
+setupDrawContext :: IORef Bool
+                          -> IORef GLDrawContext
+                          -> IORef (Maybe InputConnection)
+                          -> GLDrawContext
+                          -> IO ()
 setupDrawContext glForceSetup glDrawContextRef glInput new = do
   old <- readIORef glDrawContextRef
   writeIORef glDrawContextRef new
@@ -878,6 +888,7 @@ data CGState
   , samplerMapping        :: IntMap GLSampler
   }
 
+initCGState :: CGState
 initCGState = CGState
   { drawCommands          = mempty
   -- draw context data
@@ -895,6 +906,8 @@ type CG a = State CGState a
 emit :: GLCommand -> CG ()
 emit cmd = modify $ \s -> s {drawCommands = cmd : drawCommands s}
 
+drawContext :: MonadState CGState m =>
+                     Vector GLProgram -> m GLDrawContext
 drawContext programs = do
   GLProgram{..} <- (programs !) <$> gets currentProgram
   let f = take (Map.size inputTextures) . IntMap.toList