File tree Expand file tree Collapse file tree 1 file changed +4
-1
lines changed
src/Graphics/Rendering/OpenGL/GL Expand file tree Collapse file tree 1 file changed +4
-1
lines changed Original file line number Diff line number Diff line change @@ -52,18 +52,21 @@ endTransformFeedback = glEndTransformFeedback
52
52
53
53
data TransformFeedbackBufferMode =
54
54
InterleavedAttribs
55
+ | SeparateAttribs
55
56
| SeperateAttribs
56
57
deriving ( Eq , Ord , Show )
58
+ {-# DEPRECATED SeperateAttribs "Use 'SeparateAttribs' instead." #-}
57
59
58
60
marshalTransformFeedbackBufferMode :: TransformFeedbackBufferMode -> GLenum
59
61
marshalTransformFeedbackBufferMode x = case x of
60
62
InterleavedAttribs -> gl_INTERLEAVED_ATTRIBS
63
+ SeparateAttribs -> gl_SEPARATE_ATTRIBS
61
64
SeperateAttribs -> gl_SEPARATE_ATTRIBS
62
65
63
66
unmarshalTransformFeedbackBufferMode :: GLenum -> TransformFeedbackBufferMode
64
67
unmarshalTransformFeedbackBufferMode x
65
68
| x == gl_INTERLEAVED_ATTRIBS = InterleavedAttribs
66
- | x == gl_SEPARATE_ATTRIBS = SeperateAttribs
69
+ | x == gl_SEPARATE_ATTRIBS = SeparateAttribs
67
70
| otherwise = error $ " unmarshalTransformFeedbackBufferMode: illegal value " ++ show x
68
71
69
72
-- limits
You can’t perform that action at this time.
0 commit comments