6a46ae3 · elk · git.iko.soy

git.iko.soy/elk

on master help sign in

Get rid of AST.Literal.glTypeToVar

6a46ae3Evan Czaplicki9 years ago

src/AST/Literal.hs+2−22

compare with master

unifiedsplit

@@ -3,7 +3,8 @@

3module AST.Literal

4 ( Literal(..)

5 , toBuilder

6− , GLType(..), glTypeToVar, Shader(..)

6+ , Shader(..)

7+ , GLType(..)

7 )

8 )

8 where

9 where

@@ -16,10 +17,6 @@ import Data.Text.Lazy.Builder (Builder, fromText)

16import Data.Text.Lazy.Builder.Int (decimal)

17import Data.Text.Lazy.Builder.Int (decimal)

17import Data.Text.Lazy.Builder.RealFloat (realFloat)

18import Data.Text.Lazy.Builder.RealFloat (realFloat)

19−import qualified AST.Module.Name as ModuleName

20−import qualified AST.Variable as Var

21−import qualified Elm.Package as Pkg

22−

25-- LITERALS

22-- LITERALS

@@ -66,23 +63,6 @@ data GLType

66 deriving (Eq)

63 deriving (Eq)

69−glTypeToVar :: GLType -> Var.Canonical

70−glTypeToVar glTipe =

71− case glTipe of

72− V2 -> inLinearAlgebra "Math.Vector2" "Vec2"

73− V3 -> inLinearAlgebra "Math.Vector3" "Vec3"

74− V4 -> inLinearAlgebra "Math.Vector4" "Vec4"

75− M4 -> inLinearAlgebra "Math.Matrix4" "Mat4"

76− Int -> Var.int

77− Float -> Var.float

78− Texture -> Var.fromModule (ModuleName.Canonical Pkg.webgl "WebGL") "Texture"

79−

80−

81−inLinearAlgebra :: ModuleName.Raw -> Text -> Var.Canonical

82−inLinearAlgebra moduleName tipe =

83− Var.fromModule (ModuleName.Canonical Pkg.linearAlgebra moduleName) tipe

84−

85−

87-- BINARY

67-- BINARY