@@ -12,9 +12,6 @@ data Program a u = Dummy_Program
1212link : Shader a u v -> Shader {} {} v -> Program a u
1313link = Native.Graphics.WebGL.link
1414
15−-- Binder really should not need a program
16−-- I need runtime type information from something though...
17−
1815type Triangle a = (a,a,a)
1916
2017triangle : a -> a -> a -> Triangle a
@@ -31,10 +28,6 @@ data Buffer a = Dummy_Buffer
3128bind : [Triangle a] -> Buffer a
3229bind = Native.Graphics.WebGL.bind
3330
34−-- Now I cheat here because elm lacks existential types or rank-n
35−-- I'm in essense doing the following
36−-- data Model = forall a u. Model (Program a u) (Buffer a) u
37−
3831data Model = Dummy_Model
3932
4033encapsulate : Program a u -> Buffer a -> u -> Model