From 3e1f789ed52e20f1ddf6e20ed9c7f61cf7aaedbd Mon Sep 17 00:00:00 2001 From: Csaba Hruska Date: Sat, 22 Sep 2018 12:44:47 +0200 Subject: fix stack and compatibility issues --- src/LambdaCube/GL/Backend.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/LambdaCube/GL') diff --git a/src/LambdaCube/GL/Backend.hs b/src/LambdaCube/GL/Backend.hs index 0584a34..1cf3f62 100644 --- a/src/LambdaCube/GL/Backend.hs +++ b/src/LambdaCube/GL/Backend.hs @@ -204,17 +204,17 @@ clearRenderTarget GLRenderTarget{..} values = do VV2F (V2 r g) -> with (V4 r g 0 1) $ glClearBufferfv buf i . castPtr VV3F (V3 r g b) -> with (V4 r g b 1) $ glClearBufferfv buf i . castPtr VV4F (V4 r g b a) -> with (V4 r g b a) $ glClearBufferfv buf i . castPtr - + VInt r -> with (V4 r 0 0 1) $ glClearBufferiv buf i . castPtr VV2I (V2 r g) -> with (V4 r g 0 1) $ glClearBufferiv buf i . castPtr VV3I (V3 r g b) -> with (V4 r g b 1) $ glClearBufferiv buf i . castPtr VV4I (V4 r g b a) -> with (V4 r g b a) $ glClearBufferiv buf i . castPtr - + VWord r -> with (V4 r 0 0 1) $ glClearBufferiv buf i . castPtr VV2U (V2 r g) -> with (V4 r g 0 1) $ glClearBufferiv buf i . castPtr VV3U (V3 r g b) -> with (V4 r g b 1) $ glClearBufferiv buf i . castPtr VV4U (V4 r g b a) -> with (V4 r g b a) $ glClearBufferiv buf i . castPtr - _ -> error $ "internal error: unsupported color attachment format: " <> show c + _ -> error $ "internal error: unsupported color attachment format: " ++ show c _ -> error "internal error (clearRenderTarget)" (mask,_) <- foldM setClearValue (0,0) values -- cgit v1.2.3