Fix resize bug, resize RenderbufferObject of ping pong framebuffers

src/Dodge/Render.hs

@@ -23,6 +23,7 @@ import Control.Applicative
 import Control.Monad.State
 import Control.Lens
 import qualified Control.Foldl as F
+import Data.Tuple.Extra
 import Data.Maybe
 import Data.List
 import Data.Bifunctor
@@ -95,7 +96,7 @@ doDrawing pdata w = do
     -- we probably do not want to blend during this step
     blend $= Disabled
     depthFunc $= Just Always
-    textureBinding Texture2D $= Just (snd $ _fbo2 pdata)
+    textureBinding Texture2D $= Just (snd3 $ _fbo2 pdata)
 --    textureFilter Texture2D $= ((Linear',Just Linear') , Linear')
 --    generateMipmap' Texture2D
     if _crHP (you w) > 0