From dbdceb9d4d1dce07b14406e9b4f09bc7e0ab90e5 Mon Sep 17 00:00:00 2001
From: Jon Childress <jon@childr.es>
Date: Fri, 12 Jun 2015 20:33:17 -0700
Subject: [PATCH] add correct alias for BufferDataSource

---
 generator/IDL/Cleaner.hs          |  1 +
 generator/IDL/Printer.hs          | 33 +++++++++++++++---------------
 src/Graphics/WebGL/Raw/Types.purs | 34 +++++++++++++++----------------
 3 files changed, 35 insertions(+), 33 deletions(-)

diff --git a/generator/IDL/Cleaner.hs b/generator/IDL/Cleaner.hs
index 75213b7..f67b948 100644
--- a/generator/IDL/Cleaner.hs
+++ b/generator/IDL/Cleaner.hs
@@ -16,6 +16,7 @@ import IDL.AST
 excludedTypes :: [String]
 excludedTypes =
     [ "ArrayBuffer"
+    , "BufferDataSource"
     , "DOMString"
     , "Float32Array"
     , "FloatArray"
diff --git a/generator/IDL/Printer.hs b/generator/IDL/Printer.hs
index dae6513..266e5c5 100644
--- a/generator/IDL/Printer.hs
+++ b/generator/IDL/Printer.hs
@@ -77,22 +77,23 @@ generatedWarning = vcat
 
 typeDefs :: Doc
 typeDefs = vcat
-    [ "type DOMString   = String"
-    , "type FloatArray  = Float32Array"
-    , "type GLbitfield  = Number"
-    , "type GLboolean   = Boolean"
-    , "type GLbyte      = Number"
-    , "type GLclampf    = Number"
-    , "type GLenum      = Number"
-    , "type GLfloat     = Number"
-    , "type GLint       = Number"
-    , "type GLintptr    = Number"
-    , "type GLshort     = Number"
-    , "type GLsizei     = Number"
-    , "type GLsizeiptr  = Number"
-    , "type GLubyte     = Number"
-    , "type GLuint      = Number"
-    , "type GLushort    = Number"
+    [ "type DOMString        = String"
+    , "type BufferDataSource = Float32Array"
+    , "type FloatArray       = Float32Array"
+    , "type GLbitfield       = Number"
+    , "type GLboolean        = Boolean"
+    , "type GLbyte           = Number"
+    , "type GLclampf         = Number"
+    , "type GLenum           = Number"
+    , "type GLfloat          = Number"
+    , "type GLint            = Number"
+    , "type GLintptr         = Number"
+    , "type GLshort          = Number"
+    , "type GLsizei          = Number"
+    , "type GLsizeiptr       = Number"
+    , "type GLubyte          = Number"
+    , "type GLuint           = Number"
+    , "type GLushort         = Number"
     ]
 
 contextAttrs :: Doc
diff --git a/src/Graphics/WebGL/Raw/Types.purs b/src/Graphics/WebGL/Raw/Types.purs
index 29a3646..a7a87ab 100644
--- a/src/Graphics/WebGL/Raw/Types.purs
+++ b/src/Graphics/WebGL/Raw/Types.purs
@@ -5,25 +5,25 @@ module Graphics.WebGL.Raw.Types where
 
 import Data.ArrayBuffer.Types
 
-type DOMString   = String
-type FloatArray  = Float32Array
-type GLbitfield  = Number
-type GLboolean   = Boolean
-type GLbyte      = Number
-type GLclampf    = Number
-type GLenum      = Number
-type GLfloat     = Number
-type GLint       = Number
-type GLintptr    = Number
-type GLshort     = Number
-type GLsizei     = Number
-type GLsizeiptr  = Number
-type GLubyte     = Number
-type GLuint      = Number
-type GLushort    = Number
+type DOMString        = String
+type BufferDataSource = Float32Array
+type FloatArray       = Float32Array
+type GLbitfield       = Number
+type GLboolean        = Boolean
+type GLbyte           = Number
+type GLclampf         = Number
+type GLenum           = Number
+type GLfloat          = Number
+type GLint            = Number
+type GLintptr         = Number
+type GLshort          = Number
+type GLsizei          = Number
+type GLsizeiptr       = Number
+type GLubyte          = Number
+type GLuint           = Number
+type GLushort         = Number
 
 foreign import data ArrayBufferView :: *
-foreign import data BufferDataSource :: *
 foreign import data TexImageSource :: *
 foreign import data WebGLActiveInfo :: *
 foreign import data WebGLBuffer :: *