@@ -25,13 +25,15 @@ data GLTipe = Int | Float | V2 | V3 | V4 | M4 | Texture
2525 deriving (Show)
2626
2727glTipeName :: GLTipe -> String
28−glTipeName Int = "Int"
29−glTipeName Float = "Float"
30−glTipeName V2 = "MJS.V2"
31−glTipeName V3 = "MJS.V3"
32−glTipeName V4 = "MJS.V4"
33−glTipeName M4 = "MJS.M4x4"
34−glTipeName Texture = "Graphics.WebGL.Texture"
28+glTipeName glTipe =
29+ case glTipe of
30+ Int -> "Int"
31+ Float -> "Float"
32+ V2 -> "MJS.V2"
33+ V3 -> "MJS.V3"
34+ V4 -> "MJS.V4"
35+ M4 -> "MJS.M4x4"
36+ Texture -> "Graphics.WebGL.Texture"
3537
3638data GLShaderTipe = GLShaderTipe
3739 { attribute :: Map String GLTipe