summaryrefslogtreecommitdiff
path: root/Backend/GL/Backend.hs
diff options
context:
space:
mode:
authorCsaba Hruska <csaba.hruska@gmail.com>2015-06-01 17:57:02 +0200
committerCsaba Hruska <csaba.hruska@gmail.com>2015-06-01 17:57:02 +0200
commit9fc7b885064bf0c16a7b057bcfa3d39e8e178535 (patch)
treed06b3a2a617f5800956988d39f70390d1dada8d5 /Backend/GL/Backend.hs
parent4286f0e3180b7f4b9bbf8263cbfa39c687f37d32 (diff)
fix multipass rendering
Diffstat (limited to 'Backend/GL/Backend.hs')
-rw-r--r--Backend/GL/Backend.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Backend/GL/Backend.hs b/Backend/GL/Backend.hs
index decf93c..eed33eb 100644
--- a/Backend/GL/Backend.hs
+++ b/Backend/GL/Backend.hs
@@ -578,7 +578,7 @@ renderPipeline glp = do
578 GLSetAccumulationContext aCtx -> setupAccumulationContext aCtx 578 GLSetAccumulationContext aCtx -> setupAccumulationContext aCtx
579 GLSetRenderTarget rt bufs -> do 579 GLSetRenderTarget rt bufs -> do
580 -- set target viewport 580 -- set target viewport
581 when (rt == 0) $ do -- screen out 581 --when (rt == 0) $ do -- screen out
582 ic' <- readIORef $ glInput glp 582 ic' <- readIORef $ glInput glp
583 case ic' of 583 case ic' of
584 Nothing -> return () 584 Nothing -> return ()